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COPYRIGHT (C) 1976, 1977, 1978, 1979, 1980, 1981 , 1982 
DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE 
ONLY ON A SINGLE' COMPUTER SYSTEM AND MAY BE COPIED 
ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT 
NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 
ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND 
TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO 
AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 
REMAIN IN DEC. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 
CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 
A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 
RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS 
NOT SUPPLIED BY DEC. 

DESIGNED AND WRITTEN BY: 
DONALD A. LEWINE 
DIGITAL EQUIPMENT CORP. 
MARLBORO, MASS . 
MR1-2/E47 X6430 

MAINTAINED AND ENHANCED BY: 
DONALD D. DOSSA 
DIGITAL EQUIPMENT CORP. 
MARLBORO, MASS. 
MR1-2/E18 DTN 231-4138 
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"REVISION HISTORY" 
WHY 

START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510 
UPDATE TO KS10 VERSION 512 
FIX SOME DEFAULTS 

CHANGE HARDWARE TO. MATCH ECO #215 
START TO UPDATE 10 MICROCODE 
MORE WORK ON 10 

MAKE INTERRUPT THE 8080 BE A PULSE. 
ADD NEW RDIO AND WRIO 

FIX PROBLEMS IN MUUO CODE & CORRECT T-F I ELDS 

FIX PROBLEMS IN DDIV 

FIX UP PROBLEMS IN PI 

TURN ON WRITE FOR FL-EXIT 

FIX UP MAP INSTRUCTION 

MORE WORK ON KI -STYLE MAP 

INVERT HOLD RIGHT AND HOLD LEFT BITS 

FIXUP WRIO & RDIO EFFECTIVE ADDRESS CALC. 

FIX EDIT 15 

HAVE LSH USE FAST SHIFT HARDWARE 
FIX T-FIELD VALUES FOR PRODUCTION HARDWARE 
REMOVE WRITE TEST FROM 10 READS & WRITES 
REWRITE MUL & MULI TO BE FASTER AND SMALLER. 
USE NEW MULSUB 

MAKE BYTES USE FAST SHIFT ECO. 
MAKE SURE VMA FETCH IS CORRECT 
MORE OF 25 (FORGOT FMP) 
FIX SOME PROBLEMS WITH TRAPS 
SPEED UP EFFECTIVE ADDRESS CALCULATION 
MORE OF 32 
SPEED UP ASH & ROT 

FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS 
MORE OF 35 

FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F.P. 
IMPROVE LISTING FORMAT 
SPEEDUP KL-MODE PAGE REFILL 
FIX UP DDIV 
STILL MORE DDIV STUFF 
CORRECT PROBLEMS IN D 
CORRECT THE BLT CLEAR-CORE CASE TO 
MORE OF 45 

DO NOT ALLOW SOFTWARE 
ACTIVE. 

MAKE FDV WORK THE SAME AS THE KL10 

FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC. 
FIX BUG IN HALT LOOP 

FIX IOEA TO WORK IF NO @ OR INDEXING 
EDIT 47 BROKE JEN 

FIX FLAGS IN MULTIPLY. ALSO CODE BUMS 
MORE CODE BUMS 

CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE 
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105 ;60 CORRECT TRAPS SO THAT DSKEA RUNS RIGHT 

106 ;61 MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!! 

107 ;62 ONE MORE TRY AT EDIT 60. 

108 ;63 CORRECT TOPS- 10 STYLE PAGING SO THAT A WRITE VIOLATION SETS 

109 ; BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED). 

110 ;64 EDIT 63 BROKE HARD PAGE FAILS. (NXM , BAD DATA, AND 10 NXM) 

111 ;65 INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS. 

112 ;66 10 NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK. 

113 ;67 ON A BAD DATA ERROR, STORE THE BAD WORD IN -AC BLOCK 7 WORD AND 

114 1 

115 ;70 FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD 

116 ; ANSWER. 

117 ;71 CLEANUP SOME THINGS TO MAKE LIFE EASIER FOR FIELD SERVICE 

118 ;72 LOOK FOR 1-MS TRAP ON P PAGE POINTERS AND ABORT REFILL IF 

119 ; SET. 

120 * 73 CORRECT EDIT 72. 

121 ;74 EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD 

122 ; DATA. CORRECT TO NOT CHECK PARITY. 

123 ; ALSO CHANGE POP TO TIE UP BUS LESS'. 

124 ;75 .EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:. 

125 ;76 CORRECT BUG IN DFAD AND DFSB 

126 ;77 FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED 

127 ; BY EDIT 76 

128 ; 100 CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE 

129 ; KL10 ANSWERS FOR ALL NORMALIZED INPUTS 

130 ; ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC. 

131 ;101 DFDV OF 0.0 / -0.5 HANGS THE MACHINE 
1.32 ; 102 FIX CHOPPED FLOATING POINT INSTRUCTIONS 

133 ;103 CORRECT DFDV ROUNDING BUG. 

134 ; 104 CORRECT PROBLEMS IN DFMP 

135 ;105 RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN 

136 ; WORDS GETS LOST SOMETIME. 

137 ; 106 MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE 

138 ; A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULD. 

139 ; 107 PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS 

140 ; CONTEXT ALL THE TIME. 

141 ;110 FIX TYPO IN EDIT 103 

142 ;111 63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS 

143 ; PROBLEM. 

144 ;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 ******* 
145 

146 ; 1 12 FIX COMMENT IN TEST INSTRUCTIONS 

147 ; 1 13 CORRECT IOEA TO COMPUTE CORRECT ADDRESS IF JUST LOCAL INDEXING 

148 ; IS USED. 

149 ; 1 14 CORRECT INTERRUPT BUG IN DMUL 

150 ; 1 15 CORRECT COMMENTS HALT STATUS BLOCK 

151 ; 1 16 CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE. 

152 ; 1 17 RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM TRASH 

153 ; IN THE WRONG PLACE. NEED TO LOAD BR NOT AR. 

154 ;120 FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH 

155 ; INPUTS OF UNNORMALIZED ZEROS. THIS SHOULD NEVER HAPPEN WITH 

156 ; FORTRAN OR ANY OTHER DEC LANGUAGE. 

157 ; 121 PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ 

158 ; INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING 

159 ; HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE 

160 ; PASSAGE OF TIME. 
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161 
162 
163 
164 
165 
166 



122 DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO GET WRONG 
ANSWER . HAD TO CLEAR FLAG WORD AT EXIT OF DFAD TO FIX PROBLEM 

123 MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH ADDRESS FOR 
PAGE FAIL CODE AT PFD: . 
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.TOC "HOW TO READ THE MICROCODE " 



1 .0 FIELD DEFINITIONS 



FILE KS10.MIC 



THESE OCCUR AT THE BEGINNING OF THE LISTING, IN THE SOURCE 
(CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM: 

SYMBQL/=<L:R>M, J 

THE PARAMETER (J) IS MEANINGFUL WHEN "D " IS SPECIFIED AS THE DEFAULT MECHANISM, 
AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS 
SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS 
THE DEFAULT VALUE FOR THIS FIELD. 



THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST BIT IN THE FIELD. 
SAME METHOD. IS USED AS FOR (R) BELOW. 



THE 



THE PARAMETER (R) GIVES THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE 
RIGHTMOST BIT OF THE FIELD. BITS ARE NUMBERED FROM O ON THE LEFT. NOTE THAT 
THE POSITION OF BITS IN THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO 
THE ORDERING OF BITS IN THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP 
AND SCATTERED. 

THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD. 
THE LEGAL VALUES OF THIS PARAMETER ARE THE CHARACTERS "O" , "F", "T" , "P" , OR 
» + » . 

W D" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE IS 
SPECIFIED. 

"F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER" FIELD. 



"T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE OF 
DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS. 
USED IN THE KS10. 

"P" IS USED ON THE PARITY FIELD" TO SPECIFY THAT THE VALUE OF 
SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS ODD. 
USED ON THE KS10. 



THE FIELD 
" T " IS NOT 



THE FIELD 
"P" IS NOT 



IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP 
ADDRESS IS THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN 
GENERAL, THE CURRENT LOCATION +1). 



IN GENERAL , A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE SELECT 
FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S. 



INPUTS 



KS10.MC 1 [4,31 1 ] 
KS10.MIC[4,31 1 ] 



218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 



MICRO 31(254) 
11:26 1-MAR-1982 

2.0 VALUE DEFINITIONS 



KS10 MICROCODE V123, 1 MARCH, 1982 -- 
HOW TO READ THE MICROCODE 



SEAN KEENAN, DON DOSSA 



Page 



FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND 
TO VALUES OF THE FIELD. THE FORM IS: 



" N " IS, 



SYMBOL=N 

IN OCTAL, THE VALUE OF SYMBOL WHEN USED IN THE FIELD. 



3.0 LABEL DEFINITIONS 

A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE 
MICROINSTRUCTION DEFINITION. THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE 
VALUE OF THE SYMBOL IN THE FIELD NAMED "J". EXAMPLE: 

FOO: J/FOO 

THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE 
"FOO". IT ALSO DEFINES THE SYMBOL "FOO" TO BE THE ADDRESS OF ITSELF. 
THEREFORE, IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF. 



4.0 COMMENTS 

A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY THE 
ASSEMBLER. THIS TEXT IS AN EXAMPLE OF COMMENTS. 



5.0 MICROINSTRUCTION DEFINITION 

A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, FOLLOWED BY SLASH 
(/), FOLLOWED BY A VALUE. THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN 
OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT 
CONTAINS "8" AND/OR "9" AND/OR IS TERMINATED BY A PERIOD). SEVERAL FIELDS MAY 
BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS 
WITH COMMAS. EXAMPLE: 



AD/ZERO , RAMADR/AC*# , ACALU/AC+N , ACN/ 1 , DBUS/DP 



6.0 CONTINUATION 

THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY 
BREAKING IT AFTER ANY COMMA. IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT 
CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON 
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268 ; THE FOLLOWING LINE. EXAMPLE: 

269 ; READ [AR], ; LOOK AT EFFECTIVE ADDRESS 

270 ; SKIP DP18, ;SEE IF RIGHT OR LEFT SHIFT 

271 ; SC_SHIFT-1, ; PUT NUMBER OF PLACE TO 

272 ; ;SHIFT IN SC 

273 ; LOAD FE, ; AND IN FE 

274 ; INST DISP ; GO DO THE SHIFT 

275 ; . 
276 

277 ; 

278 ; 7.0 MACROS 

279 ; 

280 ; A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR 

281 ; MACROS. A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A 

282 ; QUOTED STRING WHICH IS THE VALUE OF THE MACRO. EXAMPLE: 

283 ; 

284 ; LOAD VMA "MEM/1, LDVMA/1 

285 ; 

286 ; THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO THE 

287 ; APPEARANCE OF ITS VALUE. 

288 ; 

289 ; MACRO MAY HAVE PARAMETERS ENCLOSED IN [ ] . FOR EXAMPLE, 

290 ; 

291 ; □_[] "AD/A, A/@2 , DEST/AD , B/@ 1 " 

292 ; 

293 ; THE @1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET OF [] AND @2 IS 

294 ; REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF [ ] . THUS 

295 • ' 

296 j [AR]_[ARX] 

297 ; 

298 ; HAS THE SAME EFFECT AS SAYING 

299 ; 

300 ; AD/A , A/ ARX , DEST/ AD , B/ AR 

301 ; 

302 ; 

303 ; SEE DESCRIPTION OF RULES FOR MACRO NAMES. 

304 ; 

305 ; 8.0 PSEUDO OPS 

306 ; 

307 ; THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS: 

308 ; 

309 ; . DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE 

310 ; ■ LOADED, AND THEREFORE THE FIELD DEFINITIONS AND MACROS WHICH ARE 

311 ; MEANINGFUL IN SUBSEQUENT MICROCODE 

312 ; .TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND 

313 ; .TOC DEFINES AN ENTRY FOR THE TABLE OF CONTENTS AT THE BEGINNING. 

314 ; .SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER, 

315 ; .CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER, 

316 ; .DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER. 

317 ; .IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO, 

318 ; . I FNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO, AND 

319 ; . ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED. 

320 ; .NOB IN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT, 

321 ; . .BIN TURN BINARY BACK ON AGAIN. 

322 ; .WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM 
323 



A ^ ^ 

KSIO.M^ . 14, 31 1 ] MICRO 31(254) KS10 MICRO^OE V123, 1 MARCH, 1982 -- SEAN KEENAN , DON DOSSA Page iO 

KS10.MIC[4,31 1 ] 11:26 1 -MAR- 1-982 HOW TO READ THE MICROCODE 

324 ; 9.0 LOCATION CONTROL 

325 ; 

326 ; A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS. 

327 ; 

328 ; THE CHARACTER "=" AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF O'S, 1'S, 

329 ; AND/OR *'S, SPECIFIES A CONSTRAINT ON THE ADDRESS OF FOLLOWING 

330 ; MICROINSTRUCTIONS. THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING 

331 ; THE " = ") IS THE NUMBER OF LOW-ORDER BITS CONSTRAINED IN THE ADDRESS. THE 

332 ; MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS O BITS IN 

333 ; THE POSITIONS CORRESPONDING TO O'S IN THE CONSTRAINT STRING AND 1 BITS WHERE THE 

334 ; CONSTRAINT HAS 1'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS. 
335 

336 ; IF THERE ARE ANY O'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF 

337 ; <2**N> MICROWORDS, WHERE N IS THE NUMBER OF O'S IN THE STRING. ALL LOCATIONS IN 

338 ; THE BLOCK WILL HAVE 1'S IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING, 

339 ; AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK. 

340 ; 

341 ; IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE 

342 ; "0" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING 

343 ; WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK. WITHIN A 

344 ; BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS 

345 ; PROGRESSION , IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS. THE 

346 ; MICROASSEMBLER WILL LATER FILL THEM IN. 

347 ; 

348 ; A NULL CONSTRAINT STRING ("=" FOLLOWED BY ANYTHING BUT "0", "1", OR " * " ) SERVES 

349 ; TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES: 
350 

351 ; =0 
352 

353 | THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO-- THE MICROASSEMBLER 

354 ; FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS 

355 ; INTO THEM. 

356 ; 

357 ; =11 

358 ; . THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES. 

359 ; SINCE THERE ARE NO O'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION 

360 ; MEETING THE CONSTRAINT. 

361 ; 

362 ; =0***** 

363 ; 

364 ; THIS SPECIFIES AN ADDRESS IN WHICH THE "40" BIT IS ZERO. DUE TO THE 

365 ; IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE DEFAULT ADDRESS PROGRESSION 

366 ; . APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH 

367 ; THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A 

368 ; ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS. HOWEVER 

369 ; NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT 

370 ; MENTIONED ABOVE. 
371 
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"CONDITIONAL ASSEMBLY DEFINITIONS" 



. DEFAULT/SIM=0 
. DE FAULT/ FULL= 1 
.WIDTH/ 108 



;0=RUN ON REAL HARDWARE 
;1=RUN UNDER SIMULATOR 

;0=INCLUDE ONLY BASIC INSTRUCTIONS 
;1=INCLUDE FULL INSTRUCTION SET 

; ONLY FIELDS BETWEEN BITS O AND 107 EVER 
; GET LOADED 'INTO THE CRAM. OTHER FIELDS 
; ARE USED FOR DEFAULTING PROCESS. 



.REGION/0, 1377/2000,3777/1400, 1777 

; TRY AND KEEP STUFF OUT OF DROM SPACE 
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390 


0: ! 


391 




392 


1 : ! 


393 




394 


2 : ! 


395 




396 


3: ! 


397 




398 


4: ! 


399 




400 


5: ! 


401 




402 


6 : ! 


403 




404 


7 : ! 


405 




406 


10: ! 


407 




408 


11: ! 


409 




410 


12: ! 


41*1 




412 


13: ! 


413 




414 


14 : ! 


415 




416 


15: ! 


417 




418 


16: ! 


419 




420 


17: ! 


421 




422 
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"2901 REGISTER USAGE" 



MAG (ONES IN BITS 1-36, REST ZERO) 
PC (ADDRESS OF CURRENT INSTRUCTION + 1) 
HR (CURRENT INSTRUCTION) 
AR (TEMP -- MEM OP AT INST START) 
ARX (TEMP LOW ORDER HALF OF DOUBLE PREC) 
BR (TEMP) 

BRX (TEMP -- LOW ORDER HALF OF DOUBLE PREC BRIBRX) 
ONE (THE CONSTANT- 1 ) 
EBR ( EXEC BASE REGISTER) 
UBR (USER BASE REGISTER) 
MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37) 
FLG (FLAG BITS) ! PAGE FAIL CODE 

PI (PI SYSTEM STATUS REGISTER [RDPI]) 
XWD1 (1 IN EACH HALF WORD) 
n TO (TEMP) 

T1 (TEMP) 
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"MICROCODE FIELDS LISTING FORMAT " 



U 1561 , 1500,2551 ,0303,0274,4463,7701 ,4200,0001 ,0001 



[--] [~] 



[].[] 



C-3C3C-][] 



C ] 

f 



3633 1561: 

3634 SUB: 
3635 

3636 



[AR]_AC-[AR] , 
AD FLAGS, 3T, 
EXIT 



# (MAGIC NUMBER) 

MULTI PREC, MULTI SHIFT, CALL (4S, 2S, 1S) 
FM WRITE, MEM, DIVIDE (4S, 2S, 1S) 
CRY38 , LOAD SC , LOAD FE (4S, 2S, 1S) 
T 

SKIP 
DTSP 
SPEC 

CLOCKS & PARITY ( CLKR , GENR , CHKR , CLKL, GENL, CHKL) 

DBM 

DBUS 

RAM ADDRESS 

B 

A 

DEST 

RSRC 

\ 

LSRC 
ALU N 
J 



] - AD 



LOCATION OF THIS MICRO WORD 
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480 
481 
482 
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486 
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492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
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511 
512 
513 
514 
515 
516 
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"MICROCODE FIELDS 



DATAPATH CHIP" 



J/=<0: 1 1>+ 



;CRA1 

; NEXT MICROCODE ADDRESS 



;ALU FUNCTIONS 

NOTE: THE AD FIELD IS A 
2901 ALU FUNCTION. THE 
THE LEFT HALF. NORMALY 
THE LEFT HALF. 
AD/=<12: 17>D,44 

A+0=00 

A+B=01 

0+Q=02 

0+B=03 

0+A=04 

D+A=05 

D+0=06 

0+D=07 

Q-A- .25=10 

B-A- . 25=1 1 

0-. 25=12 

B-. 25=13 

A-. 25=14 

A-D- .25=15 

Q-D- .25=16 
• -D- .25=17 

A-Q-. 25=20 

A-B- . 25=21 

-Q-. 25=22 

-B- . 25=23 

-A-. 25=24 

D-A-. 25=25 

D-0- .25=26 

D-. 25=27 

A.0R.Q=3O 

A.0R.B=31 

0=32 

B = 33 

A = 34 

D.OR. A=35 
D.0R.Q=36 
D = 37 

A. AND. 0=40 
A . AND . B=4 1 



2 DIGIT FIELD. THE LEFT DIGIT IS THE 
RIGHT DIGIT IS THE 2901 SRC CODE FOR 
THE RIGHT HALF SRC CODE IS THE SAME AS 

DPE1 & DPE2 
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; 518 ; MORE ALU FUNCTIONS 

; 519 

; 520 ZER0=42 

; 521 ; ZER0=43 

; 522 ; ZER0=44 

; 523 D. AND. A=45 

; 524 D. AND. 0=46 

; 525 ; ZER0=47 

; 526 . NOT . A . AND . = 50 

; 527 . NOT . A . AND . B = 5 1 

; 528 ; 0=52 

; 529 ; B=53 

; 530 ; A=54 

; 531 . NOT . D . AND . A=55 

5 ; 532 . NOT. D. AND. 0=56 

I ; 533 ; ZER0=57 

- ; 534 A.X0R.0=6O 

| ; 535 A.X0R.B=61 

; 536 ; 0=62 

I ; 537 ; B=63 

I ; 538 ; A=64 

i ; 539 D.X0R.A=65 

| ; 540 D.X0R.Q=66 

s ; 541 ; D=67 

t ; 542 A.E0V.0=7O 

I ; 543 A.EQV.B=71 ° . 

1 ; 544 .NOT. 0=72 

s ; 545 .N0T.B=73 

! ; 546 .N0T.A=74 

f ; 547 D.EOV. A=75 

I ; 548 * D.EOV. 0=76 

| ; 549 .NOT.D=77 

? ; 550 

I ; 551 ;THIS FIELD IS THE RIGHTMOST 3 BITS OF THE 

I ; 552 ; AD FIELD. IT IS USED ONLY TO DEFAULT THE RSRC 

§ ; 553 ; FIELD. 

| ; 554 LSRC/=<15: 17> ;DPE1 

I . 555 

1 ; 556 ;THIS IS THE SOURCE FOR THE RIGHT HALF OF THE 

; 557 ; DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT 

; 558 ; HALF WORDS DO SLIGHTLY DIFFERENT THINGS. 

; 559 RSRC/=<18:20>F,LSRC ;DPE2 

; 560 A0=0 ; A Q 

; 561 AB=1 ; A B 

; 562 00=2 ;0 

; 563 0B=3 ; O B 

; 564 0A=4 ;0 A 

; 565 DA=5 ;D A 

; 566 DQ=6 :D 

; 567 D0=7 ;D O 

; 568 
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569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 



; DESTINATION CONTROL 

;SEE DPE1 AND DPE2 (2'S WEIGHT IS INVERTED ON DPE5) 



DEST/=<21 :23>D,3 
A=0 

AD=1 
Q__AD = 2 
PASS=3 

Q_Q*2=4 
AD*2=5 
Q_Q*. 5=6 
AD*. 5=7 

; <24:25> 

A/=<26:29> 

MAG=0 
PC=1 
HR = 2 
AR = 3 
ARX = 4 
BR = 5 
BRX = 6 
0NE = 7 
EBR=10 
UBR=1 1 
MASK=12 
FLG=13 
PI = 14 
XWD 1=15 
T0=16 
T1 = 17 

; <30:31> 

B/=<32:35>D,0 
MAG=0 
PC= 1 
HR = 2 
AR = 3 
ARX=4 
BR = 5 
BRX = 6 
0NE = 7 
EBR=10 
UBR=1 1 
. MASK=12 
FLG=13 
PI = 14 
XWD 1=15 
T0=16 
T1 = 17 



;DPE1 & DPE2 

;A REG IS CHIP OUTPUT, AD IS WRITTEN 

; INTO REG FILE 

; REG FILE GETS AD 

; REG FILE IS NOT LOADED 

; AD OUTPUT IS CHIP OUTPUT 

; AND REG FILE LEFT ALONE 

;ALSO REG FILE GETS AD*2 

; AND IS LEFT ALONE 

;ALSO REG FILE GETS AD*. 5 

; AND IS LEFT ALONE 

; UNUSED 

;DPE1 & DPE2 



; UNUSED 
;DPE1 & DPE2 
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623 


.TOC "MICROCODE FIELDS RAM FILE ADDRESS AND D-BUS" 


624 


\ 




625 


RAMADR/ =<36 : 38>D ,4 


DPE6 


626 


AC#=0 


AC NUMBER 


627 


AC*#=1 


AC .FN. # 


628 


XR# = 2 


INDEX REGISTER 


629 


VMA=4 


VIRTUAL MEMORY REFERENCE 


630 


RAM=6 


VMA SUPPLIES 10-BIT RAM ADDRESS 


631 


# = 7 


ABSOLUTE RAM FILE REFERENCE 


632 






633 


; <39:39> 




634 






635 


; LEFT HALF ON DPE3 AND RIGHT HALF ON DPE4 


636 


DBUS/=<40:41>D, 1 


DPE3 & DPE4 


637 


PC FLAGS=0 


PC FLAGS IN LEFT HALF 


638 


PI NEW=0 


NEW PI LEVEL IN BITS 19-21 


639 


; VMA=0 


VMA IN BITS 27-35 


640 


DP=1 


DATA PATH 


641 


RAM=2 


CACHE, AC'S AND WORKSPACE 


642 


DBM = 3 


DBM MIXER 


643 






644 


: LEFT HALF ON DPMI AND RIGHT HALF ON DPM2 


645 


DBM/=<42 :44>D, 7 


DPMI & DPM2 


646 


SCAD DIAG=0 


(LH) SCAD DIAGNOSTIC 


647 


PF DISP=0 


PAGE FAIL DISP IN BITS 18-21 


648 


APR FLAGS=0 


APR FLAGS IN BITS 22-35 


649 


BYTES= 1 


5 COPIES OF SCAD 1-7 


650 


EXP = 2 


LH=EXPONENT, RH=TIME FRACTION 


651 


DP = 3 


DATA PATH 


652 


DP SWAP=4 


DATA PATH SWAPPED 


653 


VMA = 5 


VMA FLAGS,, VMA 


654 


MEM=6 


MEMORY BUFFER 


655 


# = 7 


NUMBER FIELD IN BOTH HALVES 


656 







I 
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662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
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"MICROCODE FIELDS 



PARITY GENERATION & HALF WORD CONTROL" 



AD PARITY 0K/=<108>D,0 



;**NOT STORED IN CRAM** 

;THIS BIT 15 A 1 IF THE ALU IS DOING 

; SOMETHING WHICH DOES NOT INVALIDATE 
; PARITY. IT DOES NOT APPEAR IN THE 
; REAL MACHINE. WE JUST USE IT TO SET 
; THE DEFAULT FOR GENR & GENL 



CLKL/=<45:45>D, 1 



;DPE5 

; CLOCK THE LEFT HALF OF THE MACHINE 
GENL/=<46:46>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H 

; STORE PARITY FOR 2901 LEFT 
;DPE4 FROM CRM2 PARITY CHK LEFT H 
;CHECK LEFT HALF DBUS PARITY 



CHKL/=<47:47> 



CLKR/=<48:48>D, 1 



;DPE5 

-CLOCK THE RIGHT HALF OF THE MACHINE 
GENR/ =<49 : 49>F , AD PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H 

; STORE PARITY FOR 2901 RIGHT 
;DPE4 FROM CRM2 PARITY CHK RIGHT H 
;CHECK RIGHT HALF DBUS PARITY 



CHKR/=<50:50> 
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688 
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692 
693 
694 
695 
696 
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700 
701 
702 
703 
704 
705 
706 
707 
708 
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710 
711 
712 
713 
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716 
717 
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720 
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728 
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"MICROCODE FIELDS 



SPEC" 



LOWING 


SPECIAL FUNCTION ARE DECODED ON 


DPE 1 , DPE5 , AND 


DPMA : 


! S ! 
!P! 

! E ! 
!C! 


EFFECT ! 
ON SHIFT ! 
PATHS ! 
(SEE DPE1 ) ! 


CRA6 SPEC 
EN 40 
E102 ON DPE5 


CRA6 SPEC 
EN 20 
E101 ON DPE5 
E41 1 ON DPMA 


! CRA6 SPEC 
! EN 10 
! E410 ON DPMA 
! E1 13 ON CRA2 


!0! 


NORMAL ! 


CRY 18 INH. 


PREVIOUS 


! # 


! 1 ! 


ZERO ! 


IR LOAD 


XR LOAD 


! CLR 1 MSEC 


12.1 


ONES ! 


<SPARE> 


<SPARE> 


! CLR 10 LATCH 


!3! 


ROT ! 


PI LOAD 


APR FLAGS 


! CLR 10 BUSY 


!4! 


ASHC ! 


ASH TEST 


SET SWEEP 


\ PAGE WRITE 


'.5! 


LSHC ! 


EXP TEST 


APR EN 


! NICOND 


!6! 


DIV ! 


PC FLAGS 


PXCT OFF 


! PXCT EN 


Ill 


ROTC ! 


AC BLOCKS EN 


MEM CLR 


! MEM WAIT 



THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE 
DBM MIXER, AS FOLLOWS: 



S 

p 

E 
C 


! ACTION WHEN DBM 

! SELECTS DP 

! GET DP BITS ! GET SCAD 1-7 





! ALL ! 


NONE 


1 


! 7-35 ! 


0-6 


2 


!0-6 AND 14-35 ! 


7-13 


3 


!0-13 AND 21-35! 


14-20 


4 


10-20 AND 28-35! 


21-27 


5 


! 0-27 AND 35 ! 


28-34 


6 


! SAME AS 


ZERO 


7 


! SAME AS 


ZERO 



v. y 
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733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 



THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS 
ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE 
THE SELECT CODE. 



SPEC/=<51 :56>D,0 
#=10 

CLRCLK=1 1 

CLR 10 LATCH=12 

CLRvIO BUSY=13 

LDPAGE= 14 

NIC0ND=15 

LDPXCT=16 

WAIT=17 

PRE.V = 20 

L0ADXR=21 

APR FLAGS=23 

CLRCSH=24 

APR EN=25 

MEMCLR=27 

SWEEP=34 

PXCT 0FF=36 

INHCRY18=40 

L0ADIR=41 

LDP I =43 

ASH0V=44 

EXPTST=45 

FLAGS=46 

LDACBLK=47 

LDINST=61 



DPE1 & DPE5 & DPMI & DPMA 

DECODE # BITS 

CLEAR 1MS NICOND FLAG 

CLEAR 10 LATCH 

CLEAR 10 BUSY 

WRITE PAGE TABLE 

DOING NICOND DISPATCH 

LOAD PXCT FLAGS 

MEM WAIT 

FORCE PREVIOUS CONTEXT 

LOAD XR #, USES PXCT FIELD TO SELECT 

CORRECT AC BLOCK 
LOAD APR FLAGS 
CLEAR CACHE 
SET APR ENABLES 
CLEAR PAGE FAULT CONDITION 
SET SWEEP 

TURN OFF THE EFFECT OF PXCT 

INHIBIT CARRY INTO LEFT HALF 

LOAD THE IR 

LOAD PI SYSTEM 

TEST RESULT OF ASH 

TEST RESULT OF FLOATING POINT 

CHANGE PC FLAGS 

LOAD AC BLOCK NUMBERS 

LOAD INSTRUCTION 



; THE SPEC FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF 
BYTE/=<54:56> ;DPM1 (SPEC SEL) 

BYTE 1 = 1 

BYTE2=2 

BYTE3=3 

BYTE4=4 

BYTE5=5 

; THE SPEC FIELD IS REDEFINED WHEN USED TO CONTROL SHIFT PATHS 



SHSTYLE/=<54:56> 
N0RM=O 
ZER0=1 
0NES=2 
R0T = 3 
ASHC=4 
LSHC=5 
DIV = 6 
R0TC=7 



DPE1 (SPEC SEL) 
2 40-BIT REGISTERS 

SHIFT ZERO INTO 36 BITS (ASH TOP 2901) 

SHIFT IN ONES 

ROTATE 

ASHC 

LSHC 

SPECIAL DIVIDE 
ROTATE DOUBLE 
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; 783' .TOC "MICROCODE FIELDS — DISPATCH" 

; 784 ; ( ======================================================= f 

; 785 ; S D ! CRA1 ! CRA1 ! DPEA ! 

; 786 ; ! I ! DISP ! DISP ! DISP ! 

; 787 ; ! S ! 10 ! 20 ! 40 ! 

; 788 ; ! P ! ! I ! 

; 789 ; ! = = = = = = = = = = = = = = = = = = = = = = = = = = = = = * = = = = = = = = = = = = = = = = = = = = = = = = ! 

; 790 ; ! ! DI AG ADR ! DI AG ADR ! ! 

. 79 1 . j _ _ j 

; 792 ; ! 1 ! RETURN ! RETURN ! DP 18-21 ? 

. 793 . r _ I 

; '794 ; ! 2 ! MULTIPLY ! J ! J ! 

; 795 ; ! ! 

; 796 ; ! 3 ! PAGE FAIL ! AREAD ! AREAD ! 

5 ; 797 ; ! ! 

I ; 798 ; ! 4 ! NICOND ! NOT USABLE ! NORM ! 

- . 799 . j » 

I ; 800 ; ! 5 ! BYTE ! NOT USABLE J DP 32-35 ! 

-» ; 801 ; ! ! 

I ; 802 ; ! 6 ! EA MODE ! NOT USABLE ! DROM A ! 

§ ; 803 ; ! . ! 

i ; 804 ; 111 SCAD ! NOT USABLE ! DROM B ! 

| ; 805 ; ! = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ? 

s ; 806 ; NOTE : DISP EN 40 & 'DISP 'EN 10 ONLY CONTROL THE LOW 4 BITS OF THE 

t ; 807 ; JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE HI 7 BITS. TO DO 

I ; 808 ; SOMETHING TO ALL 11 BITS BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED. 

1 ; 809 

a ; 810 DISP/=<57:62>D,70 ;CRA1 & DPEA 

i ; 811 CONSOLE=00 ;CONSOLE DISPATCH 

* ; 812 DR0M=12 ; DROM 

1 ; 813 AREAD= 1 3 ; AREAD 

| ; 814 DP LEFT=3 1 ; DP 18-21 

1 ; 815 N0RM=34 ; NORMALIZE 

I ; 816 DP=35 ;DP 32~35 

I ; 817 ADISP=36 ; DROM A FIELD 

§ ; 818 BDISP=37 ; DROM B FIELD 

n ; 819 RETURN=4 1 ; RETURN 

I ; 820 MUL=62 ; MULTIPLY 

k ; 821 PAGE FAIL=63 ; PAGE FAIL 

; 822 NIC0ND=64 ; NEXT INSTRUCTION DISPATCH 

; 823 BYTE=65 ; BYTE SIZE AND POSITION 

; 824 EAM0DE=66 ; EFFECTIVE ADDRESS MODE 

; 825 SCAD0=67 ;J!2 IF SCAD BIT = 1 

; 826 
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827 • 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 



.TOC 



"MICROCODE FIELDS 



SKIP" 



S ! 


CRA2 ! 


DPEA 


! DPEA 


K ! 


SKIP ! 


SKIP 


! SKIP 


I ! 


10 ! 


20 


! 40 


P ! 








! 


! 





! 


-j f 


TRAP CYCLE ! 


CRY 02 


] CARRY OUT 


2 ! 


AD=0 ! 




I AD L =0 


3 ! 


SC SIGN ! 


ADR SIGN 


! ADR=0 


4 ! 


EXECUTE ! 


USER IOT 


! -USER 


5 ! 


-BUS 10 BUSY ! 


JFCL SKIP 


! FPD FLAG 


6 ! 


-CONTINUE ! 


CRY 01 


! AC H IS ZERO 


7 ! 


-1 MSEC ! 


TXXX 


! INTERRUPT REQ 



851 


SKIP/=<63:68>D,70 


CRA2 & DPEA 


852 


I0LGL=04 


( .NOT. USER) ! (USER IOT )!( CONSOLE EXECUTE MODE) 


853 


LLE=12 


AD LEFT .LE. 


854 


CRY0=31 


AD CRY -2 


855 


ADLEQO=32 


ADDER LEFT = 


856 


ADREQO=33 


ADDER RIGHT =0 


857 


KERNEL=34 


.NOT. USER 


858 


FPD=35 


FIRST PART DONE 


859 


AC0=36 


AC NUMBER IS ZERO 


860 


INT=37 


INTERRUPT REQUEST 


861 


LE = 42 


(AD SIGN) ! (AD.EQ.O) 


862 


CRY2=51 


AD CRY 02 


863 


DPO=52 


AD SIGN 


864 


DP18=53 


AD BIT 18 


865 


I0T=54 


USER IOT 


866 


UFCL=55 


JFCL SKIP 


867 


CRY1=56 


AD CRY 1 


868 


TXXX=57 


TEST INSTRUCTION SHOULD SKIP 


869 


TRAP CYCLE=61 


THIS INSTRUCTION IS THE RESULT OF A 


870 




TRAP 1, 2, OR 3 


871 


ADE0O=62 


AD.EQ.O 


872 


SC = 63 


SC SIGN BIT 


873 


EXECUTE=64 


CONSOLE EXECUTE MODE 


874 


-10 BUSY=65 


.NOT. I/O LATCH 


875 


-C0NTINUE=66 


.NOT. CONTINUE 


876 


-1 MS = 67 


.NOT. 1 MS. TIMER 



877 
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878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 



.TOC 



"MICROCODE FIELDS 



TIME CONTROL" 



DT/ = <109: 1 11>D,0 



2T=0 
3T=1 
4T = 2 
5T = 3 



T/=<69:71>F,DT 



2T=0 
3T=1 
4T = 2 
5T = 3 



**NOT STORED IN CRAM** 
DEFAULT TIME FIELD (USED IN MACROS) 
CAN BE OVERRIDDEN IN MACRO 'CALL 



CSL5 (E'601) 
CLOCK TICKS 
DO A MICRO 
TWO TICKS 
THREE TICKS 
FOUR TICKS 
FIVE TICKS 



MINUS TWO REQUIRED 
INSTRUCTION 



TO 
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898 


.TOC "MICROCODE FIELDS RANDOM CONTROL BITS" 


899 






900 


CRY38/=<72> 


DPE5 


901 




INJECT A CARRY INTO THE 2901 ADDER 


902 


L0ADSC/=<73> 


DPM4 


903 




LOAD THE STEP COUNTER FROM THE SCAD 


904 


L0ADFE/=<74> 


DPM4 


905 




LOAD THE FE REGISTER FROM THE SCAD 


906 


FMWRITE/=<75> 


DPE5 (E302) 


907 




WRITE THE RAM FILE. 


908 


MEM/=<76> 


DPM5 (E612) & DPE5 (E205) 


909 




START (OR COMPLETE) A MEMORY OR I/O CYCLE UNDER 


910 




CONTROL OF THE NUMBER FIELD. 


911 


DIVIDE/=<77> 


DPE5 


912 




THIS MICROINSTRUCTION IS DOING A DIVIDE 


913 


MULTI PREC/=<78> 


DPE5 


914 




MULTIPRECISION STEP IN DIVIDE, DFAD , DFSB 


915 


MULT I SHIFT/=<79> 


CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT) 


916 




FAST SHIFT 


917 


CALL/=<80> 


CRA2 (STACK IS ON CRA3) 


918 




THIS IS A CALL 


919 







KS10.MC1[4,311] MICRO 31(254) KS10 MICROCODE V123, 1 MARCH , 1982 -- SEAN KEENAN, DON DOSSA Page 25 

KS10.MIC[4,31 1 ] 11:26 1-MAR-1982 MICROCODE FIELDS NUMBER FIELD 



920 


.TOC "MICROCODE FIELDS NUMBER FIELD" 


92 1 








922 


; HERE IS THE GENERAL FIELD 


923 


#/=<90- 107> 


•MANY PLACES 


924 








925 


;# REDEFINED WHEN USED 


AS SCAD CONTROL : 


926 


SCAD / = <90 * 92 > 


;DPM3 


927 


A * 2 = 






928 


A . OR . B= 1 






929 


A - B - 1 = 2 






930 


A-B = 3 






93 1 


A+B = 4 






932 


A AND R = R 






933 


A- 1 =6 






934 


A = 7 






935 


SCADA/=<93 : 95> 


;DPM3 


936 


SC=0 






937 


S# = 1 






938 


PTR44=2 ;44 AND 


BIT 6 (SEE DPM3) 


939 


BYTE 1 =3 






940 


BYTE2=4 






94 1 


BYTE3=5 






942 


BYTE4=6 






943 


BYTE5=7 






944 




;DPM3 


945 


FE=0 






946 


EXP=1 






947 


SHIFT=2 






948 


SIZE=3 






949 


S#/=<98 * 107> 


;DPM3 


950 








95 1 


\# REDEFINED WHEN USED 


AS STATE REGISTER CONTROL: 


952 


STATE/=<90: 107> 




NOT USED BY HARDWARE 


953 


SIMPLE=0 




SIMPLE INSTRUCTIONS 


954 


BLT=1 




BLT IN PROGRESS 


955 


MAP =400002 




MAP IN PROGRESS 


956 


SRC = 3 




MOVE STRING SOURCE IN PROGRESS 


957 


DST = 4 




MOVE STRING FILL IN PROGRESS 


958 


SRC+DST=5 




MOVE STRING DEST IN PROGRESS 


959- 


DSTF=6 




FILLING DEST 


960 


CVTDB=7 




CONVERT DEC TO BIN 


961 


COMP-DSTMO 




COMPARE DEST 


962 


EDIT-SRC=1 1 




EDIT SOURCE 


963 


EDIT-DST=12 




EDIT DEST 


964 


EDIT~S+D=13 




BOTH SRC AND DST POINTERS 


965 









V J 
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966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 



;# REDEFINED WHEN USED AS WORSPACE ADDRESS 



W0RK/=<98: 107> 

BADW0=160 

BADW1=161 

MUL=200 

DIV = 201 ' 

SV. VMA=210 

SV. AR=21 1 

SV. ARX=212 

SV.BR=213 

SV.BRX=214 

SBR=215 

CBR=216 

CSTM=217 

PUR=220 

ADJP=221 

ADJS=222 

ADJPTR=223 

ADJQ1=224 

ADJR2=225 

ADJBPW=226 

HSBADR=227 

APR=230 

; THE FOLLOWING WORDS 
EO=240 
E1=241 
SLEN=242 
MSK=243 
FILL=244 
CMS=245 
FSIG=246 

BDH=247 
BDL=250 

; TIMER STUFF 

TIME0=300 
TIME1=301 
PERI0D=302 
TTG=303 



ARE 



DPE6 

AC BLK 7 WORD O (BAD DATA FROM MEMORY) 

AC BLK 7 WORD 1 (BAD DATA FROM MEMORY) 

TEMP FOR MULTIPLY 

TEMP FOR DIVIDE 

SAVE VMA 

SAVE AR 

SAVE ARX 

SAVE BR 

SAVE BRX 

SPT BASE REGISTER 
CST BASE ADDRESS 
CST MASK 

PROCESS USE REGISTER 

"P" FOR ADJBP 

"S" FOR ADJBP 

BYTE POINTER FOR ADJBP 

TEMP FOR ADJBP 

TEMP FOR ADJBP 

(BYTES/WORD) FOR ADJBP 

ADDRESS OF HALT STATUS BLOCK 

APR ENABLES 

USED BY EXTEND INSTRUCTION 
ORIGINAL EFFECTIVE ADDRESS 
EFFECTIVE ADDRESS OF WORD AT EO 
SOURCE LENGTH 
BYTE MASK 
FILL BYTE 

SRC BYTE IN STRING COMPARE 
PLACE TO SAVE ARX WHILE STORING 

THE FLOAT CHAR 
BINARY BEING CONVERTED TO 

DECIMAL 



HIGH ORDER 36 BITS OF TIME 
LOW ORDER 36 BITS OF TIME 
INTERRUPT PERIOD 
TIME TO GO TO NEXT INTERRUPT 
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1008 ;DDIV STUFF 

1009 AC0=314 

1010 AC1=315 . 

1011 AC2=316 

1012 AC3=317 

1013 DDIV SGN=320 

1014 DVSOR H=321 

1015 DVSOR L=322 

1016 ;POWERS OF TEN 

1017 DECL0=344 

1018 DECHI=373 
1019 

1020 YSAVE=422 

1021 PTA.E=423 

1022 PTA.U=424 

1023 TRAPPC=425 

1024 SV.AR1=426 
1025 



; LOW WORD 
; HIGH WORD 

Y OF LAST INDIRECT POINTER 

ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE) 
ADDRESS OF USER PAGE MAP 
SAVED PC FROM TRAP CYCLE 
ANOTHER PLACE TO SAVE AR 
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1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 



;# REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9) 
SET0V/=<90> 



SETF0V/=<91> 
SETNDV/=<92> 



CLRFPD/=<93> 
SETFPD/=<94> 
HOLD USER/=<95> 



; <96> 

TRAP2/=<97> 

TRAP1/=<98> 



LD PCU/=<99> 
; <100> 
; <101> 



; <102> 
; <103> 
JFCLFLG/=<104> 



LD FLAGS/=<105> 
; <106> 
ADFLGS/=<107> 



DPE9 

SET ARITHMETIC OVERFLOW 
SET FLOATING OVERFLOW 
SET NO DIVIDE 



CLEAR FIRST PART DONE 
SET FIRST PART DONE 
WHEN THIS BIT IS SET IT: 

1. PREVENTS SETTING USER IOT IN USER MODE 

2. PREVENTS CLEARING USER IN USER MODE 



SPARE 

SET TRAP 2 
SET TRAP 1 



LOAD PCU FROM USER 

SPARE 

SPARE 



SPARE 
SPARE 

DO A UFCL INSTRUCTION 



; LOAD FLAGS FROM DP 
; UPDATE CARRY FLAGS 
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1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1 100 
1 101 
1 102 
1 103 
1 104 
1 105 
1106 
1107 



;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL 



FORCE USER/=<90> 
FORCE EXEC/=<91> 

FETCH/=<92> 



; FORCE USER MODE REFERENCE 

;• FORCE EXEC MODE REFERENCE 

; (DOES NOT WORK UNDER PXCT) 

;THIS IS AN INSTRUCTION FETCH 



READ CYCLE/=<93> 
WRITE TEST/=<94> 
WRITE CYCLE/=<95> 



; SELECT A READ CYCLE 

; PAGE FAILE IF NOT WRITTEN 

; SELECT A MEMORY WRITE CYCLE 



; <96> 
DONT CACHE/=<97> 
PHYSICAL/=<98> 



;SPARE BIT 

;D0: NOT LOOK IN CACHE 

;D0 NOT INVOKE PAGING HARDWARE 



PXCT/ = <99: 101> , 

CURRENT=0 
E1 = 1 
D1=3 

BIS-SRC-EA=4 
E2 = 5 

BIS-DST-EA=6 
D2 = 7 



; WHICH PXCT BITS TO LOOK AT 



AREAD/=<102> 
DP FUNC/=<103> 

LDVMA/=<104> 



; LET DROM SELECT SYSLE TYPE AND VMA LOAD 
; IGNORE # BITS 0-11 AND USE DP 0-13 INSTEAD 
; DP9 MEANS " FORCE PREVIOUS" 
; LOAD THE VMA 



EXT ADR/=<105> 

WAIT/=<106> 

BWRITE/=<107> 



;PUT VMA BITS 14-17 ONTO BUS 
; START A MEMORY OR I/O CYCLE 
; START A MEMORY CYCLE IF DROM ASKS FOR IT 
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1 108 
1 109 
1 1 10 
1111 
1 112 
1 113 
1 1 14 
1 1 15 
1116 
1 117 
1 118 
1 1 19 



; THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION 



; <99> 
10 CYCLE/=<100> 
WRU CYCLE/=<101> 



PREVIOUS 

THIS IS AN I/O CYCLE 
WHO ARE YOU CYCLE 



VECTOR CYCLE/=<102> 
10 BYTE/=<103> 
; <104> 



; READ INTERRUPT VECTOR 
; BYTE CYCLE 
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1 120 
1121 
1 122 
1123 
1 124 
1125 
1 126 
1 127 
1 128 
1 129 
1 130 
1131 
1 132 
1133 
1 134 
1 135 
1136 
1 137 
1138 
1 139 
1140 
1141 
1 142 
1 143 
1 144 
1145 
1 146 
1147 
1 148 
1 149 
1150 
1151 
1 152 
1153 
1 154 



;# REDEFINED WHEN USED AS PI RIGHT BITS 



PI . ZER/ =<90 : 92> 
PI . IP1/=<93> 
PI . IP2/=<94> 
PI.IP3/=<95> 
PI . IP4/=<96> 
PI.IP5/=<97> 
PI.IP6/=<98> 
PI.IP7/=<99> 
PI.0N/=<100> 
PI . CO 1/ = < 101> 
PI . C02/ =< 102> 
I ,C03/=<103> 
I.C04/=<104> 
I.C05/=<105> 
I.C06/=<106> 
I.C07/=<107> 

;# REDEFINED WHEN USED 

PI .MBZ/=<90:93> 

PI .DIR/=<94> 

PI .CLR/=<95> 

PI . REQ/=<96> 

PI . TCN/ =<97> 

PI.TCF/=<98> 

PI.TSF/=<99> 

PI . TSN/ =< 100> 

PI.SC1/=<101> 

PI .SC2/=<102> 

PI . SC3/=< 103> 

PI . SC4/ =< 104> 

PI . SC5/=< 105> 

PI . SC6/=< 106> 

PI . SC7/ =< 107> 



; ZEROS 

:PI 1 IN PROG 



; SYSTEM IS ON 
; CHAN 1 IS' ON 



AS WRPI DATA 
MUST BE ZERO 
DROP INTERRUPT REQUESTS 
CLEAR SYSTEM 
REQUEST INTERRUPT 
TURN CHANNEL ON 
TURN CHANNEL OFF 
TURN SYSTEM OFF 
TURN SYSTEM ON 
SELECT CHANNEL 1 
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1 155 
1 156 
1 157 
1 158 
1 159 
1 160 
1 161 
1 162 
1 163 
1 164 
1 165 
1 166 
1 167 
1 168 
1 169 
1 170 
1171 
1 172 
1 173 
1 174 
1 175 
1 176 
1 177 
1 178 
1 179 
1 180 
1 181 
1 182 
1 183 
1 184 
1 185 
1 186 



;# REDEFINED WHEN USED AS AC CONTROL 



THIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6 . THE NUMBER 
FIELD HAS THIS FORMAT IN <98:107>: 



CARRY! S8 


- | | 

! S4 ! S2 


_ . 

Si 


! MODE! B8 


. } _ 

! B4 


- ! | 

! B2 ! B1 


IN ! 


FUNCTION 






DATA 


INPUTS 



ACALU/=<98: 103> 
B = 25 
AC+N=62 

ACN/=<104: 107> 

SRCLEN=C 

SRCP=1 

DLEN=3 

DSTP=4 

MARK=3 

BIN0=3 

BIN1M 



AC NAMES FOR STRING INSTRUCTIONS 

SOURCE LENGTH 

SOURCE POINTER 

DEST LENGTH 

DEST POINTER 

POINTER TO MARK 

HIGH WORD OF BINARY 

LOW WORD OF BINARY 



;# FIELD REDEFINED WHEN USE AS APRID DATA 
MICROCODE OPTIONS/=<90:98> 
OPT=0 

MICROCODE VERSI0N/=<99: 107> 
UCV=123 
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1 187 
1 188 
1189 
1 190 
1191 
1192 
1 193 
1 194 
1 195 
1 196 
1 197 
1 198 
1 199 
1200 
1201 
1202 
1 203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
121 1 
1212 
1213 
1214 
1215 
1216 



;# FIELD REDEFINED WHEN USED AS A HALT CODE 



HALT/=<90: 107> 

POWER=0 
HALT= 1 
CSL = 2 

* I0PF=1OO 
ILLII=101 
ILLINT=102 

BW14=1000 
NICOND 5=1004 
MULERR=1005 

. I FNOT/FULL 

PAGEF=1777 

. ENDI F/FULL 



CODES TO 77 ARE "NORMAL " HALTS 
POWER UP 

HALT INSTRUCTION 
CONSOLE HALT 

CODES 100 TO 777 ARE SOFTWARE ERRORS 
I/O PAGE FAIL 

ILLEGAL INTERRUPT INSTRUCTION 

BAD POINTER TO UNIBUS INTERRUPT VECTOR 

CODES 1000 TO 1777 ARE HARDWARE ERRORS 

ILLEGAL BWRITE FUNCTION (BAD DROM) 

ILLEGAL NICOND DISPATCH 

VALUE COMPUTED FOR 10**21 WAS WRONG 

: PAGE FAIL IN SMALL MICROCODE 



;# FIELD REDEFINED WHEN USED AS FLG BITS 



FLG.W/=<94> 
FLG.PI/=<95> 
FLG.C/=<96> 
FLG.SN/=<97> 



W BIT FROM PAGE MAP 
PI CYCLE 

CACHE BIT FROM PAGE MAP 
SPECIAL NEGATE IN FDV & DFDV 



; RIGHT HALF OF FLG USED TO RECOVER FROM PAGE FAILS 



, 1982 -- SEAN KEENAN, DON DOSSA Page 
NUMBER FIELD 



KS10. 
KS10. 

1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 



MC 1 [4,311] 
.MIC[4,311 ] 
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; ALL ON DPEA 



A/=<2:5> 



. DCODE 

READ=0 

WRITE=1 

DREAD=2 

DBLAC=3 

SHIFT=4 

DSHIFT=5 

FPI=6 

FP = 7 

RD-PF=10 
DFP=1 1 
I0T=12 



B/=<8 : 1 1> 

SELF=4 

DBLAC=5 

DBLB=6 

AC=15 

MEMM6 

B0TH=17 



OPERAND FETCH MODE 

READ 

WRITE 

DOUBLE READ 
DOUBLE AC 
SIMPLE SHIFT 
DOUBLE SHIFT 

FLOATING POINT IMMEDIATE 

FLOATING POINT 

READ, THEN START PREFETCH 

DOUBLE FLOATING POINT 

CHECK FOR 10 LEGAL THEN SAME AS I 

STORE RESULTS AS 
SELF 

DOUBLE AC 
DOUBLE BOTH 
AC 

MEMORY 
BOTH 



; B-FI ELD WHEN USED IN FLOATING POINT OPERATIONS 



R0UND/=<8> 

M0DE/=<9> 

FL-B/=<10: 1 1> 
AC=1 
MEM=2 
B0TH=3 

J/=<12:23> 

ACDISP/=<24> 
I/=<25> 

READ/=<26> 
TEST/=<27> 
COND FUNC/=<28> 
VMA/=<29>D, 1 
WRITE/=<30> 

.UCODE 



ROUND THE RESULT 

SEPARATE ADD/SUB & MUL/DIV ETC. 

STORE RESULTS AS 

AC 

MEMORY 
BOTH 

DISPATCH ADDRESS (MUST BE 1400 TO 1777) 
DISPATCH ON AC FIELD 

IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM 

IF THIS BIT IS SET. 
START A READ AT AREAD 
START A WRITE TEST AT AREAD 
START A MEMORY CYCLE ON BWRITE 
LOAD THE VMA ON AREAD 
START A WRITE ON AREAD 
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1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1284 
1285 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 



.TOC " HOW TO READ MACROS " 

1.0 REGISTER TRANSFER MACROS 

MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901 
REGISTERS. THE NAMES OF THE 2901 REGISTERS ARE MACRO PARAMETERS AND ARE 
ENCLOSED IN []. A TYPICAL MACRO IS: 



[AR]_[AR3+[BR] 

THE SYMBOL _ IS PRONOUNCED "GETS". 
THE AR PLUS THE BR". 



THE ABOVE MACRO WOULD BE READ "THE AR GETS 



IF A MACRO DOES NOT HAVE A _ IN IT, THERE IS NO RESULT STORED. THUS, [ AR J - [BR ] 
JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ON THE VARIOUS ALU BITS. 



1.1 SPECIAL SYMBOLS 

THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE 
THEY ARE DEFINED HERE: 



NOT 2901 
SEE DPEA 



REGISTERS. 



1. AC'-- THE AC SELECTED BY THE CURRENT INSTRUCTION. 

2. AC[] -- AC+N. -AC[1] IS AC+1 , AC[2j IS AC+2 , ETC. 

3. APR -- THE APR FLAGS FROM DPMA 

4. EA THE EFFECTIVE ADDRESS. THAT IS, IN THE LEFT HALF AND THE 
CONTENTS OF THE HR IN THE RIGHT HALF. 

5. EXP -- THE F.P. EXPONENT FROM THE SCAD. [AR]_EXP WILL TAKE THE 
EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR. 

6. FE -- THE FE REGISTER 

7. FLAGS -- THE PC FLAGS (FROM DPE9) IN THE LEFT HALF. 

8. -- THE Q N REGISTER 

9. RAM - - THE RAM FILE, RAM ADDRESS IS IN THE VMA . 

10. P -- THE P FIELD OF THE BYTE POINTER. SAME v IDEA AS EXP. 

11. TIME -- THE 1MS. TIMER 

12. VMA THE VMA. WHEN READ IT INCLUDES THE VMA FLAGS 

13. XR INDEX REGISTER 



n 
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14. 



15. 



16. 



XWD* HALF WORD . USED TO GENERATE CONSTANTS. FOR EXAMPLE, [AR]_0 XWD 
[40] WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR . 



+SIGN AND -SIGN -- SIGN BITS USED TO SIGN SMEAR 
EXAMPLE, [AR] +SIGN WOULD CLEAR AR BITS O TO 8. 



F.P. 



NUMBERS. 



FOR 



WORK [ ] -- LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE. FOR 
EXAMPLE, [AR]__WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE 
RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD. 



1.2 LONG \ 

LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE Q REGISTER IS ALSO 
SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP. 



2.0 MEMORY MACROS 

MEMORY IS INDICATED BY THE SYMBOL "MEM". WHEN WE ARE WAITING FOR DATA FROM 
MEMORY THE "MEM READ " MACRO IS USED. WHEN WE ARE SENDING DATA TO MEMORY, THE 
"MEM WRITE" MACRO IS USED. EXAMPLE, 

MEM READ, ;WAIT FOR MEMORY 

[AR]__MEM ; LOAD DATA INTO AR 

VMA IS USED THE LOAD THE VMA . THUS, VMA_[PC] LOADS THE VMA FROM THE PC. 



3.0 TIME CONTROL 

THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL. THE FIRST, SELECTS THE RAM 
ADDRESS TO SPEED UP THE NEXT INSTRUCTION. THESE MACROS ARE AC, AC[], XR , VMA, 
WORK[]. THE SECOND, SETS THE TIME FIELD. THESE ARE 2T , 3T , 4T , AND 5T TO 
SELECT 2, 3, 4, OR 5 TICKS. 



4.0 SCAD MACROS 

THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED. 
ONLY A FEW SYMBOLS USED. 

1 . FE THE FE REGISTER 

2. SC --THE SC REGISTER 



THERE ARE 
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3. EXP THE EXPONENT FROM A F.P. NUMBER. FOR EXAMPLE FE_EXP LOADS THE 
FE FROM DP BITS 1-8. 

4. SHIFT THE SHIFT COUNT FROM SHIFT INSTRUCTIONS. THAT IS DP BITS 18 
AND 28-35. 

5. S# -- THE SMALL NUMBER. THE 10 BIT MAGIC NUMBER INPUT TO THE SCADA 
MIXER. 



5.0 CONTROL MACROS 

ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS. SOME EXAMPLES, 



HOLD LEFT 

SET APR ENABLES 

SET NO DIVIDE 



DO NOT CLOCK LEFT HALF OF DP 
LOAD APR ENABLES FROM DP 
SET NO DIVIDE PC FLAG 



6.0 SKIPS 



ALL SKIPS CAUSE THE NEXT MICRO INSTRUCTION TO COME FROM 
EVEN/ODD PAIR. THE tfACROS HAVE THE FORMAT OF SKIP COND . 
IS TRUE. SOME EXAMPLES, 

SKIP AD.EQ.O ;SKIP IF ADDER OUTPUT IS ZERO 



THE ODD WORD OF AN 
THEY SKIP IF CONDITION 



SKIP IRPT 



7.0 DISPATCH MACROS 



;SKIP IF INTERRUPT IS PENDING 



DISPATCH MACROS CAUSE THE MACHINE JO GO TO ONE OF MANY PLACES. IN MOST CASES 
THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO. FOR EXAMPLE, MUL DISP, BYTE 
DISP. 



8.0 SUPER MACROS 

THERE ARE PLACES WHERE ONE MICRO' INSTRUCTION IS USED IN MANY PLACES. FOR 
EXAMPLE, MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO 
THE MONITOR. WE COULD WRITE 
J/UUO 

BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP. INSTEAD WE WRITE, 
UUO 

THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND 
INSTRUCTION. WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION 
OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES. SOME EXAMPLES OF 



KS10.MC r{4, 
KS10.MIC[4 ! 
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SUPER MACROS ARE: 

PAGE FAIL tRAP 
DONE 



HALT [] 
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GENERATE A PAGE FAIL TRAP 

THIS INSTRUCTION IS NOW COMPLETE 

USED WITH A SKIP OR DISP WHERE 

SOME PATHS ARE NOP'S 
JUMP TO HALT LOOP. ARGUMENT IS A 

CODE 



KS10.MC1[4,311] 

KS10.MIC[4,31 1 3 



MICRO 31(254) 
11:26 1 -WAR- 1982 



KS10 MICROCODE V123, 1 MARCH, 1982 -- SEAN KEENAN, DON DOSSA 
MACROS -- DATA PATH CHIP -- GENERAL 



Page 39 



1422 


.TOC "MACROS 


-- DATA PATH CHIP -- GENERAL" 


1423 
1424 


- NOT . [ 3 


"AD/.NOT. A,A/@1" 


1425 


[ ] + [ 3 


"AD/A+B, A/01 ,B/@2" 


1426 


[ 3 - [ 3 


" AD/A-B- . 25 , A/@> 1 , B/@>2 , ADD .25" 


1427 


[}-# 


"AD/A-D- . 25, DBUS/DBM, DBM/#, A/@1 , ADD . 25" 


1428 


t 3 - AND . # 


" AD/D . AND . A , DBUS/DBM , DBM/ # , A/@>1 " 


1429 


[ 3 . AND . 


"AD/A. AND. Q,A/@1 , DEST/PASS" 


1430 


[].AND.[3 


"AD/A . AND . B, A/®2 , E/P 1 , DEST/PASS " 


1431 


[ 3 . AND . NOT . [ 3 


" AD/ . NOT . A . AND . B , A/@2 , B/@ 1 , DE ST/PASS " 


1432 


n.oR.n 


" AD/A . OR . B , A/@2 , B/01 , DEST/PASS " 


1433 


[ ] .XOR.# 


" AD/D . XOR . A , DBUS/DBM , DBM/# , A/@ 1 " 


1434 


[ 3 .xor. [3 


"AD/A . XOR . B , A/@2 , B/@>1 , DEST/PASS " 


1435 


n #-[] 


"AD/D- A - . 25 , DEST/AD , A/@>2 , B/# 1 , DBUS/DBM , DBM/ ft , ADD .25" 


1436 


[ ] # 


" AD/D , DBUS/DBM , DBM/ # , DEST/AD , B/@ 1 " 


1437 


C 3 - 1 


"AD/ -A - . 25 , A/ONE , DEST/AD , B/@>1 , ADD . 25 " 


1438 


C 3 -2 


"AD/ - A- . 25 , DEST/ AD* 2 , A /ONE , B/@> 1 , ADD .25" 


1439 


[ ]_-G 


"AD/-0- . 25, DEST/AD, B/@1 , ADD .25" 


1440 


[ ]__-Q*2 


"AD/-0-.25,DEST/AD*2,B/@1,ADD .25" 


1441 


[ 3 -o* . 5 


" AD-/-Q- . 25 , DEST/ AD* . 5 , B/@1 , ADD .25" 


1442 


[3 -[3 


"AD/-A- .25, A/@2, DEST/AD, B/@1 , ADD .25" 


1443 


[3 -U--25 


"AD/- A- . 25, A/@2, DEST/AD, B/©>1 " 


1444 


[3 -[3*2 


"AD/-A- . 25 , A/@>2 , DEST/ AD*2 , B/@>1 , ADD . 25 " 


1445 


[3 .NOT. AC 


" AD/ . NOT . D , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 " 


1446 


[3 -NOT. AC [3 


" AD/ . NOT . D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , DT/3T " 


1447 


[ 3 . NOT . 


" AD/. NOT. 0, DEST/AD, B/@ 1 " 


1448 


[ 3 . NOT . [ 3 


" AD/ . NOT . A , A/@2 , DEST/AD , B/@> 1 " 


1449 


C 3 o 


"AD/ZERO, DEST/AD, B/@1 " 


1450 


[J 0*.5 LONG 


"AD/ZERO, DEST/Q Q*.5,B/@1" 


1451 


[3 o xwd [3 


"AD/47 , DEST/AD , B/@1 , DBM/# , DBUS/DBM , #/@>2 , RSRC/DA , A/MASK" 


1452 


E 3 AC 


"AD/D , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 , AD PARITY " 


1453 


E] ~AC 


"AD/-D- . 25 , DBUS/RAM, RAMADR/AC# , DEST/AD , B/@1 , ADD . 25" 


1454 


E3 -ace 3 


" AD/-D- . 25 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@> 1 , ADD . 25 , DT/3T " 


1455 


[] AC*. 5 


"AD/D , DBUS/RAM , RAMADR/ AC# , DEST/AD* . 5-,B/@1 ,DT/3T" 


1456 


[] AC*. 5 LONG 


"AD/D , DBUS/RAM , RAMADR/ AC# , DEST/Q Q* . 5 , B/@ 1 , DT/3T " 


1457 


E3 AC*2 


"AD/D , DBUS/RAM , RAMADR/AC# , DEST/ AD*2 , B/@ 1 , DT/3T " 


1458 


[3 AC+1 


" AD/D+A , DBUS/RAM , RAMADR/ AC# , A /ONE , DEST/AD , B/@ 1 " 


1459 


[3 AC+1 000001 


"AD/D+A , DBUS/RAM , RAMADR/AC# , A/XWD 1 , DEST/AD , B/<§> 1 " 


1460 


E3 ac+U 


" AD/D+A , A/@2 , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 , DT/3T " 


1461 


E3 ac-1 


" AD/D- A - . 25 , DBUS/RAM , RAMADR/ AC# , A/ONE , DEST/AD , B/(§> 1 , ADD . 25 " 


1462 


E3 ac- [ 3 


"AD/D- A- . 25 , A/@2 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@1 , ADD . 25 " 


1463 


C3 AC-[]--25 


"AD/D- A - . 25 , A/@2 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/<§> 1 " 


1464 


E3 ACE3-E3 


"AD/D- A- . 25, A/@3, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@2 , DEST/AD, B/@1 , ADD .25,DT/3T" 


1465 


[] AC[]-1 


"AD/D- A- .25 , A/ONE , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , ADD . 25 , DT/3T " 


1466 


E3 ac[ 3 - and . E 3 


"AD/D . AND . A , A/@3 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , DT/3T " 


1467 


[3 AC. AND. MASK 


"AD/D . AND . A , A/MASK , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 , AD PARITY " 


1468 


[J ac[ 3 


"AD/D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , AD PARITY , DT/3T " 


1469 


[3 ACE3*2 


"AD/D , DBUS/RAM, RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/ AD*2 , B/@1 , AD PARITY , DT/3T " 


1470 


[] AC[]*.5 


"AD/D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/^2 , DEST/AD* . 5 , B/@> 1 , AD PARITY , DT/3T " 


1471 


t 3 APR 


" AD/D , DBUS/DBM , DBM/ APR FLAGS , DEST/ AD , B/@> 1 , DT/3T " 


1472 


[3 CURRENT AC E3 


"AD/D , DBUS/RAM , RAMADR/# , ACALU/B , ACN/<§>2 , DEST/AD , B/@.1 , AD PARITY , DT/3T " 


1473 


E] EA FROM E3 


"AD/57 , RSRC/OA , A/<§>2 , DEST/AD , B/@ 1 " \ 


1474 




\ 
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1479 
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1491 
1492 
1493 
1494 
1495 
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1500 
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151 1 
1512 
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EA 
~EXP 

_ FE 

FLAGS 
> 

"PC WITH 
Q 

Q*.5 
~Q*2 

"0*2 LONG 
~Q+ 1 
RAM 
"TIME 
~VMA 
"XR 



"AD/57 , RSRC/OA , A/HR , DEST/AD , B/@ 1 " 

" AD/D , DBUS/DBM , DBM/EXP , A/@ 1 , B/@ 1 , DEST/A , SCAD/A+B , SCADA/S# , S#/0 . SCADB/FE , HOLD R IGHT , EXP TEST " 
" AD/D , DEST/AD* . 5 , B/@ 1 , DBUS/DBM , DBM/DP , SCAD/A+B , SCADA/S* , S#/0 . SCADB/FE , BYTE/BYTE5 " 
"AD/D . AND . A t DBUS/PC FLAGS , A/MASK , DEST/AD , B/@1 , RSRC/OQ"- 

"AD/D , DEST/A , A/@ 1 ,B/@1 , DBUS/DBM , DBM/DP , BYTE/BYTE 1 , SCAD/A+B , SCADA/S# , S#/0 , SCADB/FE " 
FLAGS "AD/D, DBUS/PC FLAGS , RSRC/OA , A/PC , DEST/AD , B/@> 1 " 
AD/Q , DEST/AD , B/@ 1 " 



,AD PARITY" 
,DEST/AD,B/@1 " 



" AD/Q , DEST/AD* . 5 , B/@ 1 " 
"AD/Q,DEST/AD*2,B/@1 " 
" AD/O , DEST/0_0*2 , B/@ 1 " 
" AD/A+Q , A/ONE , DEST/AD , B/@ 1 " 
" AD/D , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 , 
» AD/44 , RSRC/DA , A/MASK , DBUS/DBM , DBM/EXP , 
"AD/D , DEST/AD , B/«»1 , DBUS/DBM , DBM/VMA " 
"AD/D , DBUS/RAM , RAMADR/XR# , DEST/AD , B/@ 1 " 
"AD/A , A/@2 , DEST/AD , B/@ 1 " 
SWAP "AD/D, DBUS/DBM, DBM/DP SWAP , DEST/A , A/@2 , B/@ 1 " 

XWD O "AD/45 , DEST/AD , B/@ 1 , DBM/# , DBUS/DBM , #/@2 , RSRC/DO , A/MASK " 

*.5 " AD/A, A/@>2, DEST/AD*. 5, B/@1 " 

*.5 LONG "AD/A,A/@2,DEST/Q_Q*.5,B/@1" 
*2 "AD/A, A/@2,DEST/AD*2,B/@1 " 

*2 LONG "AD/A, A/@2 , DEST/Q_Q*2 , B/@1 " 
*4 "AD/A+B , A/@2 , B/ @ 1 , DEST/AD* 2 " 

+ # "AD/D+A , DBUS/DBM , DBM/# , A/@2 , DEST/AD , B/@ 1 " 

+.25 "AD/O+A, A/@2, DEST/AD, B/@1 , ADD .25" 

+0 "AD/O+A, A/@2, DEST/AD, B/@1 " 

+ 1 "AD/A+B , A/ONE , B/@ 1 , B/@2 , DEST/AD" 

+ 1000001 "AD/D+A . A/@2 , DBUS/DBM , DBM/# , ff / 1 , DEST/AD , B/<s> 1 " 
+AC "AD/D+A , A/@2, DBUS/RAM , RAMADR/AC# , DEST/AD , B/@1 " 

+AC [ ] " AD/D+A , A/@>2 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@3 , DEST/AD , B/@ 1 , DT/3T " 

+0 "AD/A+Q, A/@2, DEST/AD, B/@1 " 

+RAM " AD/D+A , A/@2 , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 " 

+XR "AD/D+A , DBUS/RAM , RAMADR/XR# , A/@2 , DEST/AD , B/0 1 , HOLD LEFT " 

+ [ ] "AD/A+B, A/<e>3,B/@1 , B/@2 , DEST/AD " 

+ []+.25 "AD/A+B , A/@3,B/@1 , B/<®2 , DEST/AD , ADD .25" 

"AD/A-D-. 25, DBUS/DBM, DBM/# , A/@2 , DEST/AD, B/@1, ADD .25" 
-1 "AD/B-A-. 25, B/@1, A/ONE, DEST/AD, ADD .25" 

-1000001 "AD/A-D- . 25 , A/@2 , DBUS/DBM, DBM/ # , #/ 1 , DEST/AD , B/@ 1 , ADD .25" 

-AC "AD/ A - D- . 25 , A/@>2 , DBUS/RAM , RAMADR/ AC #, DEST/AD , B/® 1 , ADD .25" 

-RAM "AD/A-D- . 25 , A/@2 , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 , ADD .25" 

- [ ] " AD/B- A - . 25 , B/@ 1 , B/@2 , A/@3 , DEST/AD, ADD . 25 " 

-[] REV "AD/A-B-. 25, B/@1,B/@3,A/@2, DEST/AD, ADD .25" 

. AND . ff "AD/D . AND . A , DBUS/DBM , DBM/ ff , DEST/AD , A/@2 , B/@> 1 " 

. AND . # CLR LH "AD/ZERO , RSRC/DA , DBUS/DBM , DBM/# , DEST/AD , A/@2 , B/@ 1 " 

. AND . ff CLR RH "AD/D . AND. A , RSRC/OQ , DBUS/DBM , DBM/ # , DEST/AD , A/@2 , B/@1 " 

AC[ ] .AND. [ ] )*.5 "AD/D. AND. A, DEST/AD* .5, A/@3,B/@1 , RAMADR/ AC*# , DBUS/RAM , ACALU/AC+N , ACN/ @2 " 

Q+ 1 ) * . 5 " AD/A+Q , A/ONE , DEST/AD* . 5 , B/@ 1 " 

#-[ 3 )*2 "AD/D- A- . 25,DEST/AD*2, A/@2,B/@1 , DBUS/DBM , DBM/ # , ADD .25" 

- [ 3 ) * . 5 " AD/- A- . 25 , A/@2 , DEST/AD* . 5 , B/@ 1 , ADD . 25 " 

-[]-.25)*.5 LONG "AD/-A-.25,A/@2,DEST/Q_Q*.5,B/@1 " 
-C3--25)*2 LONG "AD/-A- .25, A/@>2 , DEST/Q_Q*2 , B/@ 1 " 
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1527 
1528 
1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 



[ 3 .AND.#)*.5 "AD/D. AND. A, DBUS/DBM, DBM/#, DEST/AD*. 5, A/@2,B/@1 " 

[ 3 . AND . # ) *2 " AD/D . AND . A , DBUS/DBM , DBM/ # , DEST/ AD*2 , A/@>2 , B/@ 1 " 

[ ] . AND . NOT . # ) * . 5 "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ # , DEST/AD* . 5 , A/@2 , B/@ 1 - 

[ } . AND . NOT . # ) *2 "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/# , DEST/ AD*2 , A/@2 , B/@ 1 ' 

t 3 . AND . [ 3 ) * . 5 "AD/A . AND . B , DEST/AD* . 5 , A/@3 , B/@ 1 , B/@2 " 

[ 3 .AND. [ 3 )*2 "AD/A. AND. B,DEST/AD*2, A/@3,B/@1 ,B/@2" 

{ 3 .0R.#)* .5 "AD/D . OR . A , DBUS/DBM , DBM/ #, DEST/AD* . 5 , A/@2 , B/@ 1 " 

I 3 . OR . # ) *2 " AD/D . OR . A , DBUS/DBM , DBM/ # , DEST/AD* 2 , A/@2 , B/€» 1 " 

[ 3+# ) *2 " AD/D+A , DBUS/DBM, DBM/# , DEST/AD*2 , A/@2 , B/@1 " 

[]+1)*2 " AD/A+B , A/ONE , B/@ 1 , B/@2 , DEST/AD* 2 " 

[]+[])*. 5 LONG " AD/A+B, A/@3 , B/@ 1 , B/<s>2 , DEST/Q_Q* . 5" 

[ ]+[ ] )*2 LONG "AD/A+B, A/@3,B/@1 ,B/@2,DEST/0_0*2" 

[]-[])*. 5 LONG "AD/B-A- .25, A/@>3,B/@1 , B/@2 , DEST/Q_Q* . 5 , ADD .25" 

[]-[])*2 LONG "AD/B-A.-.25,A/@3,B/@1 , B/@2 , DEST/0_0*2 , ADD .25" 

[] + [] + . 25)*. 5 LONG "AD/A+B, A/<§>3 , B/@1 , B/@2 , DEST/0_0* . 5, ADD .25" 

3 . AND . AC " AD/D . AND . A , DBUS/RAM , RAMADR/AC# , A/@2 , DEST/AD , B/@ 1 " 

3 . AND . NOT . # ■ " AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ # , A/@2 , DEST/AD , B/@ 1 " 

3 .AND. NOT. [ 3 " AD/. NOT. A. AND. B, DEST/AD, B/@1 ,B/@2, A/@3" 

] . AND . NOT . AC " AD/ . NOT . D . AND . A , DBUS/RAM , RAMADR/ AC# , A/@>2 , DEST/AD , B/@ 1 " 

3 . AND . "AD/A. AND. , A/@2, DEST/AD, B/@ 1 " 

3 . AND . [ 3 "AD/A . AND . B , A/@>3 , B/@ 1 , B/#2 , DEST/AD " 

3 . EOV . AC "AD/D . EQV . A , DBUS/RAM, RAMADR/ AC# , A/@2 , DEST/AD , B/@ 1 " 

3.EQV.Q "AD/A. EQV. 0,A/@2, DEST/AD, B/@1" 

3 .0R.# " AD/D. OR. A, DBUS/DBM, DBM/#, A/@2, DEST/AD, B/@1 " 

3 . OR . AC " AD/D . OR . A , DBUS/RAM , RAMADR/ AC# , A/@2 , DEST/AD , B/@ 1 " 

] .OR. FLAGS "AD/D . OR . A , DBUS/PC FLAGS , RSRC/OA , A/@ 1 , DEST/AD , B/@ 1 " 

3.0R.C3 "AD/A . OR . B , A/@>3 , B/@>2 , B/@1 , DEST/AD" 

3 .XOR.# "AD/D . XOR . A , DBUS/DBM , DBM/ #, DEST/AD , A/@2 , B/@> 1 " 

3 . XOR . AC "AD/D . XOR . A , DBUS/RAM , RAMADR/AC# , A/@ 1 , DEST/AD , B/@2 " 

3- XOR. [ 3 "AD/A. XOR. B, A/@3,B/#1 , B\/<?>2 , DEST/AD " 

LEFT_0 "AD/57 , RSRC/OB , DEST/AD , B/P 1 " 

RIGHTJ) "AD/53, RSRC/DO, DEST/AD, B/@1 " 

LEFT_-1 "AD/54, RSRC/OB, DEST/AD, A/MASK , B/@ 1 " 

RIGHT_-1 " AD/53, RSRC/OA, DEST/AD, A/MASK, B/@i" 



+SIGN " AND . # , #/777, HOLD RIGHT" 

J-SIGN "|>1 3_[@13 -0R,#, #/777000, HOLD RIGHT-" 

; THE FOLLOWING 2 MACROS ARE USED IN DOUBLE FLOATING STUFF 
: THEY ASSUME THAT THE OPERAND HAS 'BEEN SHIFTED RIGHT 1 PLACE. 
; THEY SHIFT 1 MORE PLACE 

[ 3_+SIGN* . 5 "AD/ . NOT . D . AND < A , A/@ 1 , B/@ 1 , DEST/AD* . 5 , DBUS/DBM, DBM/ # , 0/777400 , RSRC/OA ' 

[ }_-SIGN* . 5 "AD/D . OR . A , A/© 1 , B/@ 1 , DEST/AD* . 5 , DBUS/DBM , DBM/ # , #/777400 , RSRC/OA " 



KS10.Mo1 [4,31 1 ] 
KS10.MIC[4,31 1 ] 



1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 



. TOC 



"MACROS 



Q-U 

0. AND. NOT. [ ] 
0_[] 

Q_n-n 
Q_n+n 

0_[ ] .AND. [ 3 
Q_.NOT.AC[ 3 

o__-n 

0_-1 

0__-AC[3 "AD/-D- 
0_-0 

Q_ AC 
0_AC[3 

0_AC [ ] - AND . MASK 
AND . [ 3 




[3 



0_AC[ 3 
Q_.NOT 
Q_# 
Q_0 

Q_0 XWD 
0_0+-25 
QJ3+1 
Q_0-1 
0_0+AC 
Q__Q* . 5 
Q_Q*2 
Q__Q . OR . # 
Q_Q . AND . # 
QJQ . AND . [ 3 
Q_Q . AND . NOT 
Q_Q+ [ 3 
Q_[ 3 . AND . 
0_[ 3 .OR.Q 



[3 
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"AD/Q-A- . 25 , A/@1 , ADD .25" 

"AD/ . NOT . A . AND . , A/@ 1 , DEST/PASS " 

"AD/A,DEST/Q_AD,A/@1 " 

"AD/A-B- . 25 , A/@1 , B/@2 , DEST/Q_AD , ADD . 25 " 

"AD/A+B, A/G>1 ,B/<s>2,DEST/Q_AD" 

" AD/A . AND . B , A/@ 1 , B/@2 , DEST/ 0_AD " 

"AD/ . NOT . D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DEST/0_AD , DT/3T " 

"AD/-A- .25,DEST/0_AD, A/@1 , ADD .25" 

"Q__-[0NE3 H 

, 25 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DEST/ Q_AD , ADD . 25 , DT/3T " 
"AD/-Q-.25,ADD . 25 , DEST/Q_AD " 

" AD/D , DBUS/RAM , RAMADR/AC# , DEST/ 0_AD , CHK PARITY " 

" AD/D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@> 1 , DEST/Q_AD , CHK PAR I TY , DT/3T " 

"AD/D. AND. A, A/MASK, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@1 , DEST/Q_AD , CHK PARITY , DT/3T " 

"AD/D. AND. A, A/@2, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@1 ,DEST/Q_AD, CHK PARITY , DT/3T " 

"AD/ . NOT . , DEST/ 0_AD " 
"AD/D , DBUS/DBM , DBM/ # , DEST/ 0_AD " 
"AD/ZERO , DEST/Q__AD " 

"AD/47 , DEST/0_AD , DBM/ # , DBUS/DBM , #/@> 1 , RSRC/DA , A/MASK " 

" AD/O+0 , DEST/Q_AD , ADD .25" 

" AD/A+O , A/ ONE , DEST/Q_AD " 

"AD/Q-A- .25, A/ONE, DEST/Q_AD, ADD .25" 

" AD/D+Q , DBUS/RAM , RAMADR/ AC# , DEST/ Q_AD " 

"[MAG3_[MASK3*-5 LONG, SHSTYLE/NORM " 

" [MASK3„[MAG3*2 LONG, SHSTYLE/NORM" 

"AD/D . OR . Q , DBUS/DBM , DBM/ # , DEST/ 0_AD " 

"AD/D . AND . , DBUS/DBM , DBM/ # , DEST/Q_AD " 

"AD/A. AND. 0, A/@1 ,DEST/Q_AD" 

"AD/ . NOT . A . AND . Q , A/01., DEST/ Q_AD " 

"AD/A+Q, A/#1 ,DEST/Q_AD" 

"AD/A. AND. 0, A/@1 ,DEST/Q_AD" 

" AD/A . OR . , A/@ 1 , DEST/Q__AD " 



KS10.MC1[4, 311] 
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1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 



.TOC 



"MACROS 



DATA PATH CHIP 



MISC. 



CLEAR []0 
CLEAR ARXO 



H AD/D . AND . A , A/@ 1 , DBUS/DBM , DBM/# , #/ 311111 , DEST/AD , B/@ 1 , HOLD RIGHT " 
"CLEAR [ARX]0 M 



;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS 
READ XR "AD/D , DBUS/RAM , RAMADR/XR# " 

READ [] "AD/B,B/@1" 
READ Q "AD/Q" 

; TEST BITS IN REGISTERS (SKIP IF ZERO) 

TR E3 "AD/D .AND . A , DBUS/DBM, DBM/ #,A/@1,SKIP ADR . EQ . O , DT/3T " 

TL [] "AD/D . AND . A , DBUS/DBM , DBM/ # , A/@ 1 , SKI P ADL . EQ . , DT/3T " 



; CAUSE BITS\-2 AND -1 TO MATCH BIT O. 

FIX [] SIGN \ "AD/D , DEST/A , A/@> 1 , B/@>1 , DBUS/DP , HOLD RIGHT' 

; GENERATE A MASK IN Q AND ZERO A 2901 REGISTER 
GEN MSK [3 "AD/ZERO,DEST/Q 0*2 , B/@ 1 , ONES " 



l/C ■» A 
rS O I W 


MC 1 [ 4,311] 


r\ o i \J . 


MIC[4,31 1 ] 


1 628 


.TOC "MACRO 


1 629 






■4 C OA 

1 O o\j 


FM WRITE 


1631 








a r> r " 

AC[ . 


_[ J VIA AD 


IOOO 


AC 


3 VIA AD 




AC L . 


_L 3 


IOOO 


AC[ . 


[ 3 TEST 


1 OoO 


AC[ . 


_L 3 + 1 


loo / 


a r " 
AC[ . 


C 3*2 


IOOO 


AC_J 


J 


1 OC53 


AC__| 


3 TEST 




AC_J 


i + 1 


1 fid. 1 
I 0*f 1 


AC 


3+0 




a n r 
AC L . 


1 L J + 


i o*+o 


a r> r " 
ACL . 


i r i r i 
L J ~ L J 


\ o*+*+ 


AC L . 






AC ! 


i i r i 

3 + 1 3 


1 040 


a r* r ' 

ACL . 


_L 3 - AND . l ] 


1 o4 / 


ACL . 


_0 . AND . L 3 


A CiAQ 


a n r " 
AC L . 


[ ] . EQV . Q 


A C/IQ 
1 0*+ 3 


AC[ . 


1 -[ 3 


1 O OVJ 


AC - 


-C3 


i fiR "f 

lOO 1 


AC | 


3.0R.[] 


IDDZ 


act: 


j .NOT. [3 


IDOO 


AC 


NOT. [ 3 


lOO't 


AC[ 


1_-Q 


IODD 


AC C 




1656 


AC[. 





1657 


AC[ 


i 1 


1658 


AC[. 


I 


1659 
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"AD/B , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE , CHK PARITY " 

" AD/B , DE ST/PASS , B/@ 1 , RAMADR/ AC # , DBUS/DP , FM WRITE, CHK PARITY" 

"AD/A , DEST/A , B/@2 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE " 

" AD/D , DBUS/DP , DEST/A , B/@2 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A+B , DEST/PASS , A/ONE , B/<§>2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A+B , DEST/PASS , A/@>2 , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A, DEST/A, B/@1 ,A/@1 , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/D, DBUS/DP, DEST/A, B/@1 , A/@1 , RAMADR/AC# , DBUS/DP , FM WRITE" 

"AD/A+B , DEST/PASS , A/ONE , B/@ 1 , RAMADR/ AC# , FM WR I TE " 

"AD/ A+Q , DEST/PASS , A/@> 1 , B/@> 1 , RAMADR/ AC# , FM WRITE" 

" AD/A+O , DEST/PASS , A/@2 , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , FM WR ITE " 

" AD/A-B- . 25 , DEST/PASS , B/@3 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , ADD . 25" 
"AD/A+B , DEST/PASS , B/@3 , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 
"AD/A+B , DEST/PASS , B/@>2 , A/@ 1 , RAMADR/AC# , DBUS/DP , FM WRITE " 

"AD/A . AND . B , DEST/PASS , B/@3 , A/@2 , RAMADR/AC*# , ACALU/AC+N, ACN/© 1 , DBUS/DP , FM WRITE " 
"AD/A . AND . Q , DEST/PASS , A/@>2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 
"AD/ A . EQV . Q , DEST/PASS , A/@>2 , RAMADR/ AC*# , AC ALU/ AC+N , ACN/ @ 1 , DBUS/DP, FM WRITE" 
"AD/-B- . 25 , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , ADD . 25" 
"AD/ -A- . 25 , DEST/PASS , A/@ 1 , RAMADR/AC# , DBUS/DP , ADD . 25 , FM WRITE " 
"AD/A . OR . B , A/@1 , B/@2 , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/ . NOT . B , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 
"AD/ . NOT . B , DEST/PASS , B/@1 , RAMADR/AC# , DBUS/DP , FM WRITE " 
" AD/-Q- . 25 , RAMADR/AC*# , ACALU/AC+N , ACN/ @ 1 , DBUS/DP , FM WRITE , ADD . 25 " 
"AD/Q,RAMADR/AC#, DBUS/DP, FM WRITE" 

"AD/ZERO, RAMADR/AC*#-, ACALU/AC+N, ACN/@1 , DBUS/DP, FM WRITE" 

"AD/B , DEST/PASS , B/ONE , RAMADR/AC*# , ACALU/AC+N , ACN/<e> 1 , DBUS/DP , FM WRITE " 

"AD/Q , RAMADR/AC*#, ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 
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1660 

1661 ' 

1662 

1663 

1664 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 

1674 

1675 

1676 

1677 

1678 

1679 

1680 

1681 

1682 

1683 

1684 

1685 

1686 



.TOC "MACROS MICROCODE WORK SPACE" 



"AD/Q, DEST/PASS , RAMADR/# , W0RK/@1 , FM WRITE " 
" AD/D , DEST/0_AD , RAMADR/# , DBUS/RAM , WORK/@ 1 , DT/3T " 
" AD/ZERO , DEST/PASS , RAMADR/ # , W0RK/<s>1 , FM WRITE " 
"AD/B , DEST/PASS, RAMADR/# , WORK/@ 1 ,B/ONE , FM WRITE" 
" AD/B , DEST/PASS , RAMADR/# , WORK/@ 1 , B/@>2 , FM WRITE" 

"AD/47 , RSRC/AB , DEST/PASS , RAMADR/ tt , W0RK/@1 , B/@2 , A/MASK , FM WRITE " 
" AD/A-B- . 25 , A/@>2 , B/ONE , DEST/PASS, RAMADR/ # , W0RK/@>1 , FM WRITE, ADD .25" 
"AD/ . NOT . B , DEST/PASS , RAMADR/ tt , WORK/@ 1 , B/@2 , FM WRITE " 
"AD/A . AND . B , DEST/PASS , RAMADR/# , WORK/@ 1 , A/@2 , B/@3 , FM WRITE " 
"AD/ . NOT . D . AND . A , A/@ 1 , DBUS/RAM , RAMADR/# , W0RK/@2 , DT/3T " 



WORK[ ]_Q 
Q__WORK[ ] 
W0RK[3__0 
W0RK[]_1 
WORK[]_[] 
W0RK[]_C3 CLR LH 
W0RK[3_[]"1 
WORK[ 3_.N0T. [ ] " 
WORK []_[]. AND. [] 
3 .AND. NOT. WORK [ 3 

] . AND . WORK[ ] "AD/D . AND . A , A/@ 1 , DBUS/RAM , RAMADR/ ft , WORK/ @2 , DT/ 3T " 
]_[ 3+W0RK[ 3 "AD/D+A, A/<§>2 , DEST/AD , B/<e> 1 , DBUS/RAM , RAMADR/ tt , W0RK/@>3 , DT/ 3T " 

3_[ 3 .AND. WORK [ 3 "AD/D. AND . A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ tt , WORK/ @>3 , DT/ 3T " 
]_[ 3 . AND . NOT . WORK [ 3 "AD/ . NOT . D . AND . A , A/<s>2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ tt , W0RK/@3 , DT/3T " 
3_[ 3 .OR. WORK[ 3 "AD/D. OR. A ,-A/@2 , DEST/AD, B/@1 , DBUS/RAM, RAMADR/ tt , W0RK/@3 , DT/3T " 
AD/D , DEST/AD , B/@1 , DBUS/RAM , RAMADR/ tt , W0RK/@2 , DT/3T " 
AD/ . NOT . D , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ tt , W0RK/@>2 , DT/3T " 
AD/-D- . 25 , ADD . 25 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ tt , W0RK/@2 , DT/3T " " 
AD/D+A , A /ONE , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/# , W0RK/@2 , DT/3T " 
AD/O-D- . 25 , DEST/Q_AD , DBUS/RAM , RAMADR/^ , W0RK/@ 1 , ADD . 25 , DT/3T " 
AD/A-D- . 25 , DEST/AD , A/<§>2 , B/@ 1 , DBUS/RAM , RAMADR/ ft , W0RK/@3 , ADD . 25 , DT/3T " 



3_W0RK[ 3 

3_.N0T. WORK[ 3 

3_-W0RK[ 3 

3_W0RK[ 3+1 
0__0-WORK[ 3 
[3 [3-WORKU 



RAM [ 3 



"AD/B , DEST/PASS , RAMADR/ RAM , B/@> 1 , FM WRITE " 



KSIO.Nfc ([4,31 1 ] 
KS10.MIC[4,31 1 ] 



MICRO 31(254) 
11:26 1-MAR-1982 



K510 MICROCODE V1.23, 1 MARCH, 1982 
MACROS MEMORY CONTROL 



SEAN KEENAN, DON DOSSA 



Page 46 



1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 



.TOC 



MEM CYCLE 



"MACROS 



MEMORY CONTROL" 



"MEM/ 1 " 



; THE FOLLOWING MACROS CONTROL MEMORY ADDRESS 



LOAD VMA 

FORCE EXEC 

VMA PHYSICAL 

VMA PHYSICAL WRITE 

VMA PHYSICAL READ 

VMA EXTENDED 

PXCT EA 
PXCT DATA 
PXCT BLT DEST 
PXCT BYTE PTR EA 
PXCT BYTE DATA 
PXCT STACK WORD 
PXCT BLT SRC 
PXCT EXTEND EA 



"MEM CYCLE , LDVMA/1 " 
"FORCE EXEC/1" 

"PHYSICAL/1 , FORCE EXEC/1, FORCE USER/0, EXT ADR/1, LOAD VMA" 
"LOAD VMA, VMA PHYSICAL , WAIT/ 1 , MEM/ 1 , WRITE CYCLE/ 1 , WRITE TEST/0" 
"LOAD VMA, VMA PHYSICAL , WAIT/ 1 , MEM/ 1 , READ CYCLE/ 1 , WRITE TEST/0" 
"EXT ADR/1" 

"PXCT/E 1 " 
" PXCT/D 1 " 
"PXCT/D 1 " 
"PXCT/E2 " 
"PXCT/D2 " 
"PXCT/D2" 
" PXCT/D2 " 
"PXCT/E2 " 



; THE FOLLOWING MACROS GET MEMORY CYCLES STARTED 

WRITE TEST. "WRITE TEST/ 1 , WAIT/ 1 " 

START READ \ "MEM CYCLE, READ CYCLE/ 1 , WA I 7/ 1 " 

START WRITE ' "MEM CYCLE, WRITE TEST, WRITE CYCLE/ 1 , WAIT/ 1 " 

START NO TEST WRITE "MEM CYCLE, WRITE CYCLE/ 1 WAIT/ 1 " 

FETCH "START READ , FETCH/ 1 , PXCT/CURRENT , WAIT/ 1 " 

; THE FOLLOWING MACROS COMPLETE MEMORY CYCLES 

MEM WAIT "MEM CYCLE , WAIT/ 1 " 

MEM READ "MEM WAIT , DBUS/DBM , DBM/MEM " 

MEM WRITE "MEM WAIT,DT/3T" 

SPEC MEM READ " SPEC/WAIT , DBUS/DBM , DBM/MEM " 

SPEC MEM WRITE " SPEC/WAIT , DT/3T " 



; THINGS WHICH WRITE MEMORY 



MEM_J ] 
MEM Q 



" AD/B , DEST/PASS , B/@ 1 , DBUS/DP , RAMADR/VMA , CHK PARITY " 
" AD/O , DBUS/DP , RAMADR/VMA " 



,* THINGS WHICH READ MEMORY 



[ ]__I0 DATA 
[ ]_MEM 

[]_MEM THEN FETCH 
[ ]_MEM*.5 
[ ]_MEM. AND. MASK 
[3_(MEM.AND. U)*.5 
MEM 



" AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD , B/@ 1 " 
" AD/D , DBUS/DBM, RAMADR/VMA , DEST/AD , B/@ 1 , CHK PARITY " 

"AD/D , DBUS/DBM , RAMADR/VMA , DEST/ A , A/PC , B/@ 1 , CHK PARITY, FETCH, LOAD VMA" 

"AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@ 1 , CHK PARITY " 

" AD/D . AND . A , A/MASK , DBUS/DBM , RAMADR/ VMA , DEST/AD , B/@ 1 , CHK PARITY " 

" AD/D . AND . A , A/@2 , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@> 1 , CHK PAR I TY " 

"AD/D, DBUS/DBM, RAMADR/VMA, DEST/Q AD , CHK PARITY" 
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1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 



.TOC 



"MACROS 



VMA " 



VMA_[ ] 

VMA_[ ] WITH FLAGS 

VMA_[3-OR.[3 WITH FLAGS 

VMA_[ 3+1 

VMA_[ 3-1 

VMA__[3+XR 

VMA_J3 + E3 



"AD/A, A/© 1 ,DEST/PASS,LOAD VMA " 

" AD/A , A/@ 1 , DE ST/PASS , LOAD VMA, WAIT/1, MEM/ 1 , EXT ADR/1, 

" AD/A. OR. B, A/@1 , B/@>2 , DEST/PASS , LOAD VMA, WAIT/ 1 , MEM/1 , 

"AD/A+B , A/ONE , B/@>1 , DEST/AD , HOLD LEFT, LOAD VMA " 

" AD/B-A-. 25, A/ONE, B/@1 , ADD .25, HOLD LEFT, LOAD VMA" 

" AD/D+A , DBUS/RAM , RAMADR/XR# , A/@ 1 , LOAD VMA " 

" AD/A+B, DEST/PASS, A/@1 ,B/@2,L0AD VMA" 



DP FUNC/1 
EXT ADR/1 , 



DT/3T" 
DP FUNC/1, 



DT/3T" 



NEXT [3 PHYSICAL WRITE "AD/A+B , A/ONE ,B/@1 , DEST/AD , HOLD LEFT, LOAD VMA, VMA PHYSICAL, START WRITE" 
;MACROS TO LOAD A 2901 REGISTER WITH VMA FLAG BITS 

[ 3_VMA FLAGS "AD/45 , DEST/AD , B/e 1 , DBM/# , DBUS/DBM , R SRC/DO , A/MASK " 

[3_VMA 10 READ "|>1]_VMA FLAGS, READ CYCLE/1,10 CYCLE/ 1, WRITE TEST/0, PHYSICAL/1, FORCE EXEC/1, FORCE USER/0" 
[3_VMA 10 WRITE " [@13_VMA FLAGS, WRITE CYCLE/1,10 CYCLE/ 1 , WRITE TEST/0, PHYSICAL/1, FORCE EXEC/ 1 , FORCE USER/O" 
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Page 



1 754 




|V| A Vmt in U o i 1 1*1 C uUIN 1 KUL 


1 755 






1 / ZjKj 




"PAMADP / Afif " 


1 7 C »7 


ALr I J 


"PAMADP / Ap*if ATAIli/Ar + M 


1 758 


XR 


" PAMADP /XQM " 


1 759 


VMA 


11 PAMADP /VMA " 

l\HI'IHUr\/ V |V(A 


1760 


WORK[ ] 


" RAMADR/ # , W0RK/@>1*« 


1761 






1762' 


2T 


"T/2T" 


1763 


3T 


"T/3T" 


1764 


4T 


"T/4T" 


1765 


5T 


"T/5T" 


1766 
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1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 



.TOC 

LOAD SC 
LOAD FE 
STEP SC 
SHIFT 



SC__SC-1 

SC_SHIFT 

SC_SHIFT-1 

SC__SHIFT-2 

SC_-SHIFT 

SC_-SHIFT-1 

SC_-SHIFT-2 

SC_SC-EXP 

SC_SC-EXP- 1 

SC_SC-FE-1 

SC_SC-FE 

SC_EXP 

SC_S#-FE 

SC_FE+S# 

SC_FE 

SC S# 



SC_36 . 

SC_35. 

SC_34 . 

SC_28. 

SC_27. 

SC_26. 

SC_24 . 

SC_22. 

SC_20. 

SC_19. 

SC_14. 

SC_1 1 . 

SC_9. 

SC_8. 

SC_7 

SC_6 

SC_5 

SC_4 

SC_3 

SC_2 

SC_1 

SC_0 

SC_- 1 

SC -2 



"MACROS -- SCAD, SC , FE LOGIC" 



"LOADSC/1" 
"LOADFE/1" 

" SCAD/A -1 , SCADA/SC, LOAD" SC , SKI P/SC " 

"SCAD/A+B, SCADA/S#, SCADB/FE, S#/1 , LOAD FE, MULT I SHIFT/1" 
"SCAD/A- 1 , SCADA/SC, LOAD SC" 

"SCAD/A+B , SCADA/S# , S#/0 , SCADB/ SHI FT , LOAD SC" 
"SCAD/A+B , SCADA/S# , S#/ 1777 , SCADB/SHI FT , LOAD SC" 
" SCAD/A+B , SCADA/S# , S# / 1 776 , SCADB/SHI FT , LOAD SC " 
" SCAD/ A -B , SCADA/S# , S#/0000 , SCADB/SHI FT , LOAD SC " 
"SCAD/A-B , SCADA/S# , SCADB/SHI FT , Sft/ 1 777 , LOAD SC " 
. "SCAD/A -B, SCADA/S#, SCADB/SHI FT, S#/ 1776, LOAD SC" 
"SCAD/A-B,SCADA/SC,SCADB/EXP,LOAD SC" 
"SCAD/A-B- 1 ,SCADA/SC,SCADB/EXP, LOAD SC" 
"SCAD/A-B- 1 , SCADA/SC , SCADB/FE , LOAD SC " ' 
"SCAD/A-B, SCADA/SC, SCADB/FE, LOAD SC" 
"SCAD/A+B, SCADA/S#,S#/0,SCADB/EXP, LOAD SC " 
"SCAD/A-B, SCADA/S# , SCADB/FE , LOAD SC" 
"SCAD/A+B , SCADA/S# , SCADB/FE , LOAD SC " 
"SCAD/A . OR . B , SCADA/S# , S#/ O , SCADB/FE , LOAD SC" 
"SCAD/A, SCADA/S#, LOAD SC" 



"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC__S# 
"SC_S# 
"SC__S# 
"SC_S# 
"SC_S# 
"SC_S# 

"sc__s# 

"SC_S# 

"SC_S# 
"SC__S# 
»'SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC__S# 
"SC_S# 
"SC__S# 
"SC s# 



S#/36. 

S#/35. 
,30/34. 

S#/28. 

S#/27. 

S#/26. 

S#/24. 

S#/22. 

S#/20. 
,S#/t9, 

S#/14. 

S#/ 1 1 . 

S#/9. " 

S#/8. " 

S#/7" 

S#/6" 

S#/5" 

S#/4" 

S#/3" 

S#/2 " 

S#/1 " 

S#/0. " 

S#/1777 

S#/1776 



\ 



KS10. 


Mu ! [ 4,311] 


KS10 


MIC[4,31 1 ] 


1817 


FE -FE 


1818 


FE -FE-1 


1819 


FE FE-19 


1820 


FE -FE+S# 


1821 


FE FE+SC 


1822 


FE FE . AND . S# 


1823 


FE P 


1824 


FE S 


1825 


FE S+2 


1826 


FE -S-20 


1827 


FE -5-10 


1828 


FE S# 


1829 


FE S#-FE 


1830 


FE -2 


1831 


FE -12. 


1832 


FE 


1833 


FE -1 


1834 


FE FE+1 


1835 


FE FE+2 


1836 


FE FE+10 


1837 


FE FE-1 


1838 


FE FE+4 


1839 


FE EXP 


1840 


FE SC+EXP 


1841 


FE 5C-EXP 


1842 


FE FE+P 


1843 


FE FE-200 


1844 


FE -FE+200 


1845 


FE_FE+S# 


1846 




1847 




1848 


GEN 17-FE 


1849 
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LOAD FE" 

LOAD FE" 
LOAD FE" 
LOAD FE" 



" SCAD/A -B , SCADA/S# , S#/0 , SCADB/FE , LOAD FE " 
" SCAD/A -B , SCADA/S# , S#/ 1777 , SCADB/FE , LOAD FE " 
"SCAD/A+B , SCADB/FE , SCADA/S# , 5ft / 1 550, LOAD FE " 
"SCAD/A-B , SCADA/S# , SCADB/FE , LOAD FE " 
"SCAD/A+B, SCADA/SC, SCADB/FE, LOAD FE" 
" SCAD/ A . AND . B , SCAD A/ S# , SCADB/FE , LOAD FE" 
" SCAD/ A , SCAD A/BYTE 1 , LOAD FE" 
"SCAD/A+B, SCADA/S#, S#/0 ,SCADB/SIZE, 
"SCAD/A+B, SCADA/S#, S#/20, SCADB/SIZE, 
"SCAD/A-B , 5CADA/S# , S#/ 1 760, SCADB/SI ZE , 
"SCAD/A-B , SCADA/S# , S#/ 1 770 , SCADB/SI ZE , 
"SCAD/A, SCADA/S#, LOAD FE" 
"SCAD/A-B , SCADA/S# , SCADB/FE , LOAD FE " 
"FE_S#,S#/1776" 
"FE_S#, S#/1764" 
"FE__S#,S#/0" 
"FE_S#,S#/1777" 

"SCAD/A+B , SCADA/S# , SCADB/FE , S#/ 1 , LOAD FE " 
"SCAD/A+B, SCADA/S#, SCADB/FE, S#/2, LOAD FE" 

"SCAD/A+B , SCADA/S# , SCADB/FE , S#/ 10, LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , S#/ 1 777 , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , S#/4 , LOAD FE " 
"SCAD/A+B , SCADA/S# , S#/0 , SCADB/EXP , LOAD FE " 
"SCAD/A+B , SCADA/SC , SCADB/EXP , LOAD FE " 
"SCAD/A-B , SCADA/SC , SCADB/EXP , LOAD FE " 
"SCAD/A+B, SCADA/BYTE1 , SCADB/FE, LOAD FE" 
"SCAD/A+B , SCADA'/S# , S#/ 1600, SCADB/FE , LOAD FE" 
"SCAD/A-B , SCADA/S# , S#/200 , SCADB/FE , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , LOAD FE " 



"SCAD/A-B , SCADA/S# , S#/2 10 , SCADB/FE " 
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1850 
1851 
1852 
1853 
1854 
18.55 
1856 
1857 
1858 
1859 
1-860 
1861 
1862 
1863 
1864 
1865 



.TOC 



"MACROS 



HOLD LEFT 
ADL PARITY 
CHK PARITY L 

HOLD RIGHT 
ADR PARITY 
CHK PARITY R 

AD PARITY 
CHK PARITY 
BAD PARITY 

INH CRY 1 8 



MICRO 31(254) 
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DATA PATH FIELD CONTROL " 

"CLKL/O , GENL/ 0" 

"GENL/1" 

"CHKL/1" 

"CLKR/0,GENR/0" 
"GENR/1" 
"CHKR/ 1 " 

"AD PARITY OK/1" 
"CHKL/1 ,CHKR/1" 
"CHKL/0,CHKR/0" 

"SPEC/INHCRY 18" 
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1 RfiR 
1 oOO 


. J uu 


"MACROS SHIFT PATH CONTROL" 


1 OO / 








1 OOo 


A CM. 
Aon 


"CUCTVI C/MTIDM" 
ono 1 Y Ley N.UK|V| 


A CU4 CU T T T 
Aon on 1 r 1 


i ooy 


1 CU 

Lori 


"CUCTVI CT /MO DM" 


1 CU CUTCT /CAMC UADnWADC AC A CU RUT 

Lbn onlr 1 VoAJVIt nAKUWAKt Ao A on tSU 1 


4 Q *7r\ 






DTTC _ o AMR - i A DP DDFCFT TD 7PDn^ 
D 1 1 o AInU i AKt rKtot 1 IU itKU ; 


A 07 4 

1 a / 1 


nnT 
KU t 


"SHSTYLE/ROT " 




1872 


LSHC 


"SHSTYLE/LSHC " 




1873 


ASHC 


"SHSTYLE/ ASHC " 




1874 


ROTC 


" SHSTYLE/ROTC " 




1875 


ONES 


" SHSTYLE /ONE S " 


SHIFT IN 1 BITS 


1876 


DIV 


" SHSTYLE/DI V " 


SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT 


1877 






COMPLEMENT BIT AS IT GOES AROUND) 


1878 









o 



KS10 


MC1 [4, 


31 1 ] 
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1879 




MAwKUs) 


-- SPECIAL FUNCTIONS " 


1880 








1881 


i n An 
LUAU 


T D 


"SPEC/LOADIR" ; LOAD INSTRUCTION REG FROM 


1882 






; DBUS0-DBUS8, LOAD AC# FROM 


1883 






; DBUS9-DBUS 1 2 


1884 






; UPDATE LAST- INST-PUBLIC PC FLAG 


1885 


LOAD 


1 Nb 1 


"SPEC/LDINST" 


1886 


LOAD 


INST EA 


" SPEC/LOADXR, PXCT/CURRENT" 


1887 


LOAD 


BYTE EA 


" SPEC/LOADXR , PXCT/E2 " 


1888 


LOAD 


IND EA 


" SPEC/LOADXR , PXCT/E 1 " 


1889 


LOAD 


SRC EA 


"SPEC/LOADXR, PXCT/BIS- SRC -EA" 


1890 


LOAD 


DST EA 


"SPEC/LOADXR, PXCT/B IS -DST- EA" 


1891 


ADD . 


25 


"CRY38/1" ;GENERATE CARRY IN TO BIT 37 


1892 


CALL 


□ 


"CALL/ 1 , J/@1 " ; C A L L A SUBROUTINE 


1893 


LOAD 


PXCT 


"SPEC/LDPXCT" ; LOAD PXCT FLAGS IF EXEC MODE 


1894 


TURN 


OFF PXCT 


"SPEC/PXCT OFF" 


1895 


LOAD 


PAGE TABLE 


"SPEC/LDPAGE" 


1896 


LOAD 


AC BLOCKS 


" SPEC/ LDACBLK " 


1897 


SWEEP 


"SPEC/SWEEP, PHYSICAL/1 " 


1898 


CLRCSH 


"SPEC/CLRCSH, PHYSICAL/ 1 " 


1899 


LOAD 


PI 


"SPEC/LDPI " 


1900 


SET HALT 


"SPEC/#,#/74" 


1901 


CLEAR 


CONTINUE 


"SPEC/#, #/40" 


1902 


CLEAR 


EXECUTE 


"SPEC/#,#/20" 


1903 


CLEAR 


RUN 


"SPEC/#, #/10" 


1904 


UNHALT 


u SPEC/#,#/62" 


1905 


SET APR ENABLES 


"SPEC/APR EN" 


1906 


ABORT 


MEM CYCLE 


"DBUS/DBM , RAMADR/VMA , DBM/MEM , AD/ZERO , SPEC/MEMCLR , LOAD VMA " 


1907 


CLR 10 BUSY 


"SPEC/CLR 10 BUSY" 


1908 


CLR 10 LATCH 


"SPEC/CLR 10 LATCH" 


1909 
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1910 
191 1 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 



.TOC "MACROS 

CHANGE FLAGS 

SET AROV 
SET FOV 
SET NO DIVIDE 
SET FL NO DIVIDE 
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ASH AROV 
SET FPD 
CLR FPD 

SET PDL OV 
SET TRAP 1 

LOAD PCU 
UPDATE USER 
LEAVE USER 

UFCL FLAGS 

LOAD FLAGS 
EXP TEST 
AD FLAGS 

NO DIVIDE 
FL NO DIVIDE 



"CHANGE FLAGS, HOLD USER/1, SETOV/1, TRAP 1/1" 

"CHANGE FLAGS, HOLD USER/1, SETFOV/1, TRAP 1/1" 

"CHANGE FLAGS, HOLD USER/1, SETOV/1, SETNDV/1, TRAP 1 / 1 1 
"SET NO DIVIDE, SETFOV/1" 

"SPEC/ASHOV" 

"CHANGE FLAGS, HOLD USER/1, SETFPD/1" 

"CHANGE FLAGS, HOLD USER/1, CLRFPD/1" 

"CHANGE FLAGS, HOLD USER/ 1 , TRAP2/1" 

"CHANGE FLAGS, HOLD USER/1, TRAP 1 / 1 " 

"CHANGE FLAGS, LD PCU/1" 
"CHANGE FLAGS, HOLD USER/1" 
"CHANGE FLAGS, HOLD USER/O" 

"CHANGE FLAGS, HOLD USER/1, JFCLFLG/1" 

"CHANGE FLAGS, LD FLAGS/ 1" 
"SPEC/EXPTST" 

"CHANGE FLAGS, AOFLGS/1, HOLD USER/ 1 " 

"SET NO DIVIDE, J/NIDISP" 
"SET FL NO DIVIDE, J/NIDISP" 
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.TOC "MACROS 


PAGE FAIL FLAGS" 


1940 






1941 


STATE [] 


" [ FLG ] #, -STATE/31 ..HOLD 


1942 


END STATE 


"[FLG]_0, HOLD LEFT" 


1943 






1944 


END BLT 


" END STATE" 


1945 


END MAP 


"END STATE" 


1946 
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1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 



.TOC 



"MACROS SINGLE SKIPS" 



SKIP IF ACO 
SKIP DPO 
SKIP DP18 
SKIP AD.EQ.O 
SKIP AD.LE.O 

SKIP ADL.LE.O 



SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
TXXX 



FPD 

KERNEL 
10 LEGAL 
CRYO 
CRY 1 
CRY2 
UFCL 

ADL. EQ.O 

ADR.EQ.O 

IRPT 

-1MS 

AC REF 

EXECUTE 

TEST 



"SKIP/ACO" 
"SKIP/DPO" 
"SKIP/DP 18" 
"SKIP/ADEQ0,DT/3T 
"SKIP/LE,DT/3T" 

"SKIP/LLE,DT/3T" 

"SKIP/FPD" 

"SKIP/KERNEL" 

"SKIP/IOLGL" 

"SKIP/CRYO" 

" SKI P/ CRY 1 " 

"SKIP/CRY2,DT/3T 

"SKIP/JFCL" 

"SKIP/ADLEQO" 

"SKIP/ADREOO" 

"SKIP/INT" 

"SKIP/-1 MS'* 

"SKIP/ACREF" 

"SKIP/EXECUTE" 

"SKIP/T.XXX " 



SKIPS IF: 

THE AC NUMBER IS ZERO 
DP BIT 0=1 
DP BIT 18=1 

; ADDER OUTPUT IS ZERO 
ADDER OUTPUT IS LESS THAN OR EQUAL 
TO ZERO. 

; ADDER LEFT IS LESS THAN OR EQUAL 

TO ZERO. 
FIRST-PART-DONE PC FLAG IS SET 
USER=0 

USER=0 OR USER I0T=1 

ADDER BIT CRYO= 1 (NOT PC FLAG BIT) 
ADDER BIT CRY1=1 (NOT PC FLAG BIT) 

; ADDER BIT CRY2=1 
IF JFCL SHOULD JUMP 
ALU BITS -2 TO 17 = O 
ALU BITS 18-35 = O 
INTERRUPT IS PENDING 

DON'T SKIP IF 1 MS TIMER HAS EXPIRED. 
VMA IS 0-17 
CONSOLE EXECUTE 
TEST INSTRUCTION SHOULD SKIP 



KS10 
KS10 
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.MIC[4,31 1 ] 



MICRO 31(254) 
11:26 1 -MAR- 1982 



KS10 MICROCODE V123, 1 MARCH , 1982 -- SEAN KEENAN, DON DOSSA Page 57 
MACROS -- SPECIAL DISPATCH MACROS 



1972 


.TOC 




1973 






1974 


NEXT INST 




1975 


NEXT INST 


FETCH 


1976 


EA MODE DISP 


1977 


AREAD 




1978 


B DISP 




1979 


BWRITE DISP 


1980 


INST DISP 




1981 


EXIT 




1982 


AD FLAGS 


EXIT 


1983 


FL-EXIT 




1984 


TEST DISP 




1985 


SKIP-COMP 


DISP 


1986 


JUMP DISP 




1987 


DONE 




1988 


JUMPA 




1989 


UUO 




1990 


LUUO 




199 1 


PAGE FAIL 


TRAP 


1992 


TAKE INTERRUPT 


1993 


INTERRUPT 


TRAP 


1994 


MUL DISP 




1995 


DIV DISP 




1996 


BYTE DISP 




1997 


SCAD DISP 




1998 


RETURN [] 




1999 


PI DISP 




2000 


NORM DISP 




2001 


DISMISS 




2002 


CALL LOAD 


PI 


2003 


HALT [] 




2004 


CLEANUP DISP 


2005 







"MACROS 



SPECIAL DISPATCH MACROS" 



"DISP/NICOND, SPEC/NICOND, J/NICOND" 
"DI SP/NICOND , SPEC/NICOND , J/NICOND- FETCH" 
"DISP/EAMODE , RAMADR/XR#" 
"DISP/AREAD, WAIT/1 , AREAD/ 1 , MEM/1 , J/0" 
"DISP/BDISP" 

"B DISP, MEM/1 ,BWRITE/1 , WRITE CYCLE/ 1 , J/BWRITE " 
"DISP/DROM, J/0" 

"BWRITE DISP, SPEC/0, WRITE TEST/I"" 
"BWRITE DISP, WRITE TEST/0, AD FLAGS" 

"WRITE CYCLE/1 , WRITE TEST/ 1 , MEM/ 1 , BWRITE/ 1 , B DI SP , J/FL -BWRITE " 
"B DISP, J/TEST-TABLE" 
"B DISP , J/SKIP-COMP-TABLE " 
"B DISP, J/ JUMP-TABLE" 
" VMA_[ PC ] , LOAD VMA, FETCH, 
" C PC ]_[ AR ] , HOLD LEFT, LOAD 
" [HR ]_[ HR ] . AND . # , #/777740 , 
" [AR]__0 XWD [40], J/LUU01" 
"TL [ FLG ] , FLG.PI/1, J/PFT" 

" [FLG3_[FLG3 -0R.#, FLG.PI/1 , HOLD RIGHT, J/PI ' 
"WORK[SV. AR]_[AR3 , J/ITRAP" 
"DISP/MUL" 
"DISP/DIV" 
"DISP/BYTE, DT/3T"' 

"DISP/SCADO" ;SKIP (2'S WEIGHT) 

"DISP/RETURN, J/@1 " 
"DISP/PI" 
"DISP/N0RM,DT/3T" 

"TR [PI], #/077400, CALL [ JEN 1 ] , DT/3T " 
H [T03_[PU SWAP, CALL [LDPI23" 

" AD/47 , DEST/AD , B/T 1 , DBM/ ft , DBUS/DBM , HALT/@ 1 , RSRC/DA , A/MASK , J/HALTED " 
"READ [ FLG 3 , DBUS/DP , DISP/DP, 3T, J/CLEANUP" 



NEXT INST FETCH" 
VMA, FETCH, NEXT INST FETCH" 
, HOLD RIGHT, J/UUOGO" 



IS SCAD IS MINUS 



KS10.MC1[4,311} 
KS10.MIC[4,31 1 ] 
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MICRO 31(254) 
-MAR-1982 



KS10 MICROCODE V123, 1 MARCH , 1982 
MACROS -- SINGLE SKIPS 



SEAN KEENAN, DON DOSSA 



Page 56 



1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 



.TOC 



"MACROS 



SKIP IF ACO 
SKIP DPO 
SKIP DP18 
SKIP AD.EQ.O 
SKIP AD.LE.O 

SKIP ADL.LE.O 



SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
SKIP 
TXXX 



FPD . 

KERNEL 

10 LEGAL 

CRYO 

CRY 1 

CRY2 

UFCL 

ADL.EQ.O 

ADR. EQ.O 

IRPT 

-1MS 

AC REF 

EXECUTE 

TEST 



SINGLE SKIPS" 

"SKIP/ACO" 
"SKIP/DPO" 
"SKIP/DP 18 " 
"SKIP/ADEQ0,DT/3T 
"SKIP/LE,DT/3T" 

"SKIP/LLE,DT/3T" 

"SKIP/FPD" 
"SKIP/KERNEL" 
"SKIP/IOLGL" 
"SKIP/CRYO" 
"SKIP/CRY 1 " 
"SKIP/CRY2,DT/3T 
"SKIP/JFCL" 
"SKIP/ADLEQO" 
"SKIP/ADREQO" 
"SKIP/INT" 
"SKIP/-1 MS" 
"SKIP/ACREF" 
"SKIP/EXECUTE " 
"SKIP/TXXX" 



;SKIPS IF: 

; THE AC NUMBER IS ZERO 
;DP BIT 0=1 
;DP BIT 18=1 

; ADDER OUTPUT IS ZERO 
ADDER OUTPUT IS LESS THAN OR EQUAL 
TO ZERO. 

; ADDER LEFT IS LESS THAN OR EQUAL 
TO ZERO. ; 
FIRST-PART-DONE PC FLAG IS SET 
USER=0 

USER=0 OR USER I0T=1 

ADDER BIT CRY0= 1 (NOT PC FLAG BIT) 
ADDER BIT CRY1=1 (NOT PC FLAG BIT) 

; ADDER BIT CRY2=1 
IF JFCL SHOULD JUMP 
ALU BITS -2 TO 17 = 
ALU BITS 18-35 = O 
INTERRUPT IS PENDING 

DON'T SKIP IF 1MS TIMER HAS EXPIRED. 
VMA IS 0-17 
CONSOLE EXECUTE 
TEST INSTRUCTION SHOULD SKIP 



KS10.MC1[4,31 1 3 
KS10.MIC[4,311] 



11:26 
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1972 .TOC 
1973 

1974 NEXT INST 

1975 NEXT INST FETCH 

1976 EA MODE DISP 

1977 AREAD 

1978 B DISP 

1979 BWRITE DISP 

1980 INST DISP 

1981 EXIT 

1982 AD FLAGS EXIT 

1983 FL-EXIT 

1984 TEST DISP 

1985 SKIP-COMP DISP 

1986 JUMP DISP 

1987 DONE 

1988 JUMPA 

1989 UUO 

1990 LUUO 

1991 PAGE FAIL TRAP 

1992 TAKE INTERRUPT 

1993 INTERRUPT TRAP 

1994 MUL DISP 

1995 DIV DISP 

1996 BYTE DISP 

1997 SCAD DISP 

1998 RETURN [] 

1999 PI DISP 

2000 NORM DISP 

2001 DISMISS 

2002 CALL LOAD PI 

2003 HALT [3 

2004 CLEANUP DISP 
2005 



"MACROS 



SPECIAL DISPATCH MACROS" 



*DISP/NICOND,SPEC/NICOND, J/NICOND" 

'DISP/NICOND, SPEC/NICOND , J/NICOND- FETCH" 

'DI SP/EAMODE , RAMADR/XR# " 

'DISP/ AREAD, WAIT/ 1 , AREAD/ 1 , MEM/ 1 , J/0" 

'DISP/BDISP" 

*B DI SP , MEM/ 1 , BWRITE/ 1 , WRITE CYCLE/ 1 , J/BWRI TE " 
'DISP/DROM, J/0" 

•BWRITE DISP, SPEC/O, WRITE TEST/1"" 
'BWRITE DISP, WRITE TEST/0, AD FLAGS" 

'WRITE CYCLE/1 , WRITE TEST/ 1 , MEM/ 1 , BWRITE/ 1 , B DISP, J/ FL -BWRITE " 

"B DISP, J/TEST-TABLE" 

'B DISP , J/ SKIP-COMP -TABLE " 

"B DISP, J/JUMP-TABLE" 

" VMA__[ PC ] , LOAD VMA , FETCH, NEXT INST FETCH" 
»[PC]_[AR] ,HOLD LEFT, LOAD VMA , FETCH , NEXT INST FETCH" 
" [HR 3__[ HR 3 . AND . H , #/777740 , HOLD RIGHT , J/UUOGO " 
"[AR3_0 XWD [403, J/LUU01" 
"TL [FLG3, FLG.PI/1, J/PFT" 

" [FLG3__[FLG3 .OR. #; FLG.PI/1 , HOLD RIGHT, J/PI" 

•WORKISV. A'R]__[AR] ,. J/ITRAP" 

"DISP/MUL" N 

"DISP/DIV" 

"DISP/BYTE, DT/3T" 

"DISP/SCADO" ;SKIP (2'S WEIGHT) IS SCAD IS MINUS 

"DISP/RETURN, J/#1 " 

"DISP/PI" 

"DISP/N0RM,DT/3T" 

"TR [PI 3, #/077400, CALL [ JEN 1 3 , DT/3T " 
"[T03_[PI3 SWAP, CALL [LDP 1 2 3" 

"AD/47 , DEST/AD , B/T 1 , DBM/# , DBUS/DBM , HALT/@ 1 , RSRC/DA , A/MASK 
"READ [FLG3, DBUS/DP, DISP/DP, 3T , J/CLEANUP" 



J/HALTED" 



"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS 



KS10 


MC . L 4 ,311] 


KS10 


MIC[4, 311] 


2006 


.TOC 




2007 






2008 






2009 


; "A FIELD 


2010 






201 1 


I 


it 


2012 


I-PF 




2013 


R 




2014 


R-PF 




2015 


W 


ti 


2016 


RW 


it 


2017 


IW 


it 


2018 


IR 


ii 


2019 


DBL R 


ii 


2020 


DBL AC 


it 


2021 


SH 


ii 


2022 


SHC 




2023 


FL-R 


ii 


2024 


FL-RW 




2025 


FL-I 


ii 


2026 


DBL FL-R 




2027 


IOT 


ii 


2028 






2029 


; "B FIELD 


2030 






2031 


AC 


" 


2032 


M 




2033 


B 


" 


2034 


S 




2035 


DAC 




2036 


DBL B 




2037 


FL-AC 




2038 


FL-MEM 




2039 


FL-BOTH 




2040 


ROUND 




2041 






2042 






2043 


; CONTROL 




2044 


W TEST 




2045 


AC DISP 


ii 


2046 






2047 
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DCODE 



1/1 , TEST/1 " 
1/1 , READ/1 " 
A/DREAD, READ/1 



A/FP , READ/ 1 " 



"A/DFP, READ/1 " 



; IMMED WHICH STORE IN E. ( SETZM , 
; START READ A GO TO EXECUTE CODE 
: AR ! ARX E!E+1 



; FLOATING POINT READ 



; FLOATING POINT IMMEDIATE 



ETC . ) 



;CHECK FOR 10 LEGAL 



MACROS SAY HOW TO STORE RESULTS 



B/MEM,TEST/1 , COND FUNC/1" 
B/BOTH , TEST/ 1 , COND FUNC/1' 



FL-B/MEM, TEST/1 , COND FUNC/1' 
FL-B/BOTH, TEST/1 , COND FUNC/ ■ 
ROUND/ 1" 



UCODE 



FLOATING POINT 
FLOATING POINT 
FLOATING POINT 
FLOATING POINT 



TO MEMORY 
TO BOTH 
ROUNDED 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



0002 , 3771 , 001 2 , 4374 , 4007 ,0700 , 0000 , 0037 , 7777 
00 1 3 , 3445 , 1 2 1 2 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
0053 ,3551,1212,4374, 4007 , 0700 , 0000 , 0000 , 000 1 
006 1 , 3447 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
007 1,3771, 00 15, 4374, 4007 ,0700 , 0000 , 0000 , 000 1 



0003 , 475 1 , 1 207 , 4374 , 4007 , 0700 , 0010 , OOOO , OOO 1 

O 1 00 , 475 1 , 1 203 , 4374 , 4007 , 0700 , 0000 , 0037 , 6000 

O 106 , 3333 , 0003 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 0227 
01 10,4221 ,001 1 ,4364,4277,0700,0200,0000,0010 

1 25 , 422 1 , 00 1 , 4 1 74 , 4477 , 0700 , 0000 , 0000 , 0000 

0131, 422 1 , 00 13 , 4 1 74 , 4257 , 0700 , 0000 , 0000 ,0000 

O 1 36 , 3333 , OO 1 3 , 7 1 74 , 4007 ,0700 , 0400 ,0000 , 0230 

0162, 3333, 00 13, 7174, 4007 ,0700 , 0400 , 0000 , 0300 
02 12, 3333, 00 13, 7174, 4007 , 0700 , 0400 , 0000 , 030 1 



0214, 
0223, 
0226, 
0235, 
0242, 
0244, 
0311, 
0010, 



4223. 
3333, 
4221 . 
3333, 
4223. 
3771 . 
3771 , 
01 1 1 , 



0000, 1 174 
0007, 1 174 



0003, 
0007, 
0000, 
0002, 
0006, 
0706, 



4174 
7174 
7174 
4374 
4374 
4174 



, 4007 , 
, 4007 , 
, 4007 , 
, 4007 , 
, 4007 , 
, 4007 , 
, 4007 . 
, 4007 , 



0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 



0400, 
0400, 
2000, 
0400, 
0400, 
0000, 
0000, 
0200, 



0000. 
0000, 
0071 , 
0000, 
0000, 
0000. 
0000. 
0000. 



1443 
1444 
0023 
0344 
0373 
0344 
0373 
0010 



0560,3771 ,0004, 1276,6007,0701 ,0010,0000, 1444 
0323 , 3333 , 0005 ,6174, 4007 , 0700 , 0400 , 0000 , 0000 
0324,01 1 1 ,0702,4174,4007,0700,0200,0000,0010 
0224 , 3333 , 0004 ,6174, 4007 ,0630 , 2400 , 0060 , 0000 

03 1 1 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 
0140 , 6553 ,0500, 4374 , 4007 ,032 1 , 0000, 0033 , 0656 



U 0140 



0104,4751 , 1217,4374,4007,0700,0000,0000, 1005 
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2048 .BIN 

2049 .TOC " POWER UP SEQUENCE" 
2050 

2051 .UCODE 
2052 

2053 ; HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON 

2054 

2055 

2056 O: [MASK]_#, #/377777 ;BUILD A MASK WITH 

2057 [MASK3_[MASK]*2 ; A ONE IN 36-BITS AND O 

2058 [ MASK ]__[ MASK ] . OR . # , #/ 1 ; IN BITS -2,-1,36,37 

2059 [MAG]_[MASK]*.5 ; MAKE CONSTANT 

2060 [XWD1]_#, #/1 ; CONSTANT WITH 1 IN EACH 

2061 ' ; HALF WORD 

2062 [ONE]_0 XWD [1], ; THE CONSTANT 1 

2063 CALL/1 ; RESET STACK. (CAN NEVER RETURN 
'2064 ; TO WHERE MR LEFT US) 

2065 3: [AR]_0 XWD [376000] ; ADDRESS OF HALT STATUS 

2066 ; BLOCK 

2067 WORK [ HSBADR 3_C AR ] ; SAVE FOR HALT LOOP 

2068 [UBR]_0, ABORT MEM CYCLE ; CLEAR THE UBR AND RESET 

2069 ; MEMORY CONTROL LOGIC 

2070 [EBRJ_0, LOAD AC BLOCKS ; CLEAR THE EBR AND FORCE 

2071 ; PREVIOUS AND CURRENT AC 

2072 ; BLOCKS TO ZERO 

2073 [FLG]_0, SET APR ENABLES ; CLEAR THE STATUS FLAGS AND 

2074 ; DISABLE ALL APR CONDITIONS 

2075 WORK[APR]_[FLG] ;ZERO REMEMBERED ENABLES 
2076 

2077 WORK[TIMEO]_[FLG] ; CLEAR TIME BASE 

2078 W0RK[TIME1 ]_[FLG] ; 

2079 .IF/FULL 

2080 AC[BINO]_0 ; COMPUTE A TABLE OF POWERS OF 

2081 AC{BIN1 ]_1 ; TEN 

2082 [AR]_0, SC_19. ; WE WANT TO GET 22 NUMBERS 

2083 W0RK[DECL0]_1 ; STARTING WITH 1 

2084 WORK[DECHI ]_0 ; 

2085 [HR]_#, WORK/DECLO ; ADDRESS OF LOW WORD 

2086 [BRX]_#, WORK/DECHI -.ADDRESS OF HIGH WORD 

2087 TENLP: [ BRX ]_[ BRX ] + 1 , LOAD VMA ; ADDRESS THE HIGH WORD 

2088 =0* [ARX]_AC[BIN1] , ; LOW WORD TO ARX 

2089 CALL [DBSLOW] ; MULTIPLY BY TEN 

2090 RAM_[BR] ; SAVE HIGH WORD 

2091 [HR]_[HR]+1, LOAD VMA ; WHERE TO STORE LOW WORD 

2092 RAM_[ ARX ] , STEP SC ; STORE LOW WORD AND SEE IF 

2093 ; WE ARE DONE 

2094 =0 U/TENLP ; NOT YET- -KEEP GOING 

2095 [BR].XOR.#, 3T , SKIP ADL.EQ.O, #/330656 

2096 ;DID WE GET THE RIGHT ANSWER 

2097 ; IN THE TOP 18 BITS? 

2098 =0**0 HALT [MULERR] ;NO--CPU IS BROKEN 

2099 . ENDI F/FULL 
2100 



\ ■' 
KS10.McY[4,31 1 ] 

SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
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U 0141, 3610,4221,0014,4174,4007,0700,0010,0000,0000 



U 0151, 0334,4751,1217,4374,4007,0700,0000,0000,0120 



o 

I U 0334, 0343,4221,0001,4174,4467,0700,0000,0000,0004 

I U 0343, 0116,3771,0017,4374,4007,0700,0000,0000,0000 
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2101 =0**1 [PI]_0, CALL [LOADPI] ; CLEAR PI STATE 

2102 =1**1 ; CLEAR REGISTERS SO NO 

2103 ; PARITY ERROR HAPPEN 

2104 . I FNOT/FULL 

2105 [ARX]_0 ; WRITTEN WHILE COMPUTING POWERS 

2106 [BR]_0 ;0F 10 

2107 [BRX]_0 

2108 . ENDI F/FULL 

2109 [T1]_0 XWD [120] ; RH OF 120 CONTAINS START ADDRESS 

2110 ; FOR SIMULATOR. FOR THE REAL 

2111 ; MACHINE IT IS JUST DATA WITH 

2112 ; GOOD PARITY. 



2113 = 



2114 ; THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE 

2115 ; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN 

2116 ; VERSIONS 

2117 .IF/SIM 

2118 VMA_[T1], START READ ; READ THE WORD 

2119 MEM READ, [PC]_MEM, HOLD LEFT, J/START 

2120 ;G0 FIRE UP SIMULATOR AT THE 

2121 ; PROGRAMS STARTING ADDRESS 

2122 .IFNOT/SIM 

2123 [PC]_0, ; CLEAR LH OF PC 

2124 LEAVE USER, ; ENTER EXEC MODE 

2125 LOAD FLAGS ; CLEAR TRAP FLAGS 

2126 [T1]_#, HALT/POWER, ; LOAD T1 WITH POWER UP CODE 

2127 J/PWRON ; ENTER HALT LOOP. DO NOT STORE 

2128 ; HALT STATUS BLOCK 

2129 .ENDIF/SIM 
2130 



KS10.MC1[4,311] 

SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 1400, 0110,3443,0100,4174,4156,4700,0200,0014,0012 

U 1401, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0260, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0261 , 01 10,3443,0100,4174,4156,4700,0200,0014,0012 



U 0101 , 3475,4751 , 1203,4374,4367,0700,0000,0000,0423 
U 0102, 3475,4751 , 1203,4374,4367,0700,0000,0000,0422 



U 0103, 3475,4751 , 1203,4374,4367,0700,0000,0000,0421 
U 0105, 0104,4751,1217,4374,4007,0700,0000,0000,0002 



U 0107, 0117,3443,0100,4174,4007,0700,0200,0014,0012 



U 01 1 1 , 3475,4751 , 1203,4374,4367,0700,0000,0000,0423 
U 0112, 3475,4751 , 1203,4374,4367,0700,0000,0000,0422 



U 01 13, 3475,4751 , 1203,4374,4367,0700,0000,0000,0421 
U 0115, 0104,4751,1217,4374,4007,0700,0000,0000,0002 



U 0117, 0346,3771,0002,4365,5617,0700,0200,0000,0002 
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2131 .TOC "THE INSTRUCTION LOOP START NEXT INSTRUCTION" 

2132 

2133 ; ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO ' S END UP HERE 

2134 1400: 

2135 DONE: DONE 

2136 1401: VMA__[PC] + 1, NEXT INST FETCH, FETCH 

2137 =0 

2138 SKIP: VMA__[PC] + 1, NEXT INST FETCH, FETCH 

2139 DONE 
2140 

2141 

2142 ;16-WAY DISPATCH BASED ON NEXT INSTRUCTION 

2143 =0000 

2144 NICOND: 

2145 =0001 [AR]_0 XWD [423], ; TRAP TYPE 3 

2146 ; GET ADDRESS OF TRAP INST 

2147 TURN OFF PXCT , ; CLEAR PXCT 

2148 J/TRAP ;PROCESS TRAP (INOUT.MIC) 

2149 =0010 [AR]_0 XWD [422], ; TRAP TYPE 2 

2150 TURN OFF PXCT, ; CLEAR PXCT 

2151 J/TRAP ;G0 TRAP 

2152 =0011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2153 TURN OFF PXCT, ; TURN OF PXCT 

2154 J/TRAP ;G0 TRAP 

2155 =0101 HALT [CSL] ;"HA" COMMAND TO 8080 

2156 =0111 

2157 START: VMA_[PC], ; LOAD VMA 

2158 FETCH, ; INDICATE INSTRUCTION FETCH 

2159 J/XCTGO ;G0 GET INSTRUCTION 

2160 ; THE NEXT SET OF CASES ARE USED WHEN THERE IS A FETCH 

2161 ; IN PROGESS 

2162 =1000 

2163 NICOND-FETCH: 

2164 =1001 [AR]_0 XWD [423], ; TRAP TYPE 3 

2165 TURN OFF PXCT, 

2166 J/TRAP 

2167 =1010 [A,R]_0 XWD [422], ; TRAP TYPE 2 

2168 TURN OFF PXCT, 

2169 J/TRAP 

2170 =1011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2171 TURN OFF PXCT, 

2172 J/TRAP 

2173 =1101 HALT [CSL] ; "HA " COMMAND TO 8080 

2174 =1111 

2175 XCTGO: MEM READ, ;WAIT FOR MEMORY 

2176 [HR]_MEM, ; PUT DATA IN HR 

2177 LOAD INST, ; LOAD IR & AC # 
£178 J/INCPC ;G0 BUMP PC 



2179 = 
2180 



o 

KS 10. Mo .14,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 0346, 0201,0111,0701,2170,4366,6700,0200,0010,0010 



I U 0201, 0110,0551,0201,2270,4156,4700,0200,0014,0012 

o 



U 0203, 0110,3441,0201,4170,4156,4700,0200,0014,0012 



U 0205, 0363,0551,0202,2270,4007,0700,0200,0004,0012 



U 0207, 0363,3443,0200,4174,4007,0700,0200,0004,0012 
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2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
'2205 
2206 
2207 
2208 
2209 
2210 
221 1 
2212 
2213 
2214 
2215 
2216 
2217 



; HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR 
; EFFECTIVE ADDRESS LOGIC TO SETTLE 



INCPC: VMA__[PC] + 1 , 
FETCH/1 , 
TURN OFF PXCT, 
EA MODE DISP 



ADDRESS OF NEXT INSTRUCTION 
INSTRUCTION FETCH 
CLEAR EFFECT OF PXCT 
DISPACTH OF INDEXING AND @ 



; MAIN EFFECTIVE ADDRESS CALCULATION 

=0001 

EACALC : 

; THE FIRST 4 CASES ARE USED ONLY FOR JRST 



;CASE O -- JRST 0,FOO(XR) 
[PC]_[HR]+XR, 
HOLD LEFT, 
LOAD VMA, FETCH, 
NEXT INST FETCH 

;CASE 2 -- JRST 0,FOO 
[PC]_[HR], 
HOLD LEFT, 
LOAD VMA, FETCH, 
NEXT INST FETCH 

;CASE 4 JRST 0,@FOO(XR) 
[HR]_[HRj+XR, 
START READ, 
LOAD VMA, 
J/FETIND 

;CASE .6 JRST 0,@FOO 
VMA_[HR] , 
START READ, 
J/FETIND 



UPDATE PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



NEW PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



ADD IN INDEX 

START TO FETCH @ WORD 

PUT ADDRESS IN VMA 

GO DO MEM WAIT (FORGET ABOUT JRST) 



LOAD UP ADDRESS 

START TO FETCH @ WORD 

GO DO MEM WAIT (FORGET ABOUT JRST) 



KS10.MC1 [4, 31 1 3 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 0211, 0213,0551,0202,2270,4007,0700,0000,0000,0000 



U 0213, 0000,5741 ,0203,4174,4001 ,3700,0200,0000,0342 



U 0215, 0363,0551,0202,2270,4007,0700,0200,0004,0112 



U 0217, 0363,3443,0200,4174,4007,0700,0200,0004,0112 



U 0363, 0366,3771,0002,4361,5217,0700,0200,0000,0102 



U 0366, 0201 ,3443,O100,2174,4006,6700,02OO,0O10,0O1O 
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2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 



THESE 4 ARE FOR THE NON-JRST CASE 



;CASE 
INDEX: 



;CASE 
NO MOD : 



10 -- JUST INDEXING 
[HR]_[HR]+XR, 
HOLD LEFT 

12 NO INDEXING OR 
[AR]_EA, 

PXCT DATA, AREAD 



; ADD IN INDEX REGISTER 
;JUST DO RIGHT HALF 



INDIRECT 

PUT 



E IN AR 

DO ONE OR MORE OF THE FOLLWING 
ACCORDING TO THE DROM : 

1 . LOAD VMA 

2. START READ OR WRITE 

3. DISPATCH TO 40-57 

OR DIRECTLY TO EXECUTE CODE 



;CASE 
BOTH: 



14 



BOTH INDEXING AND INDIRECT 



[HR]_[HR]+XR, 
LOAD VMA , PXCT EA, 
START READ, J/FETIND 



;CASE 16 -- JUST INDIRECT 
INDRCT: VMA_[HR] , 

START READ, PXCT EA 



; HERE TO FETCH INDIRECT WORD 
FETIND: MEM READ, [HR]_MEM, 

HOLD LEFT, 

LOAD IND EA 

XCT2: VMA_[PC], 
FETCH/1 , 
EA MODE DISP, 
J/EACALC 



ADD IN INDEX REGISTER 
PUT ADDRESS IN VMA 

START CYCLE AND GO WAIT FOR DATA 



; LOAD ADDRESS OF 9 WORD 
; START CYCLE 



GET DATA WORD 

JUST RIGHT HALF 

RELOAD @ AND INDEX FLOPS 



PUT PC BACK IN VMA 
TURN ON FETCH FLAG 
REDO CALCULATION FOR 
NEW WORD 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002 

U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000 

U 0042, 0371,3771,0003,4365,5007,0700,0200,0000,0002 

U 0371, 0401,0111,0702,4170,4007,0700,0200,0004,0312 

U 0401, 0000,3771,0004,4365,5001,2700,0200,0000,0002 

U 0043, 0406,3771,0003,0276,6007,0700,0000,0000,0000 

U 0406, 0000,3771,0004,1276,6001,2701,0000,0000,1441 



U 0044, 0000,3333,0003,4174,4001 ,2530,3000,0041 ,5777 

U 0045, 0415,3772,0000,1275,5007,0701,0000,0000,1441 

U 0415, 0416,3776,0005,0274,4007,0701,0000,0000,0000 

U 0416, 0044,3446,0505,4174,4007,0700,0000,0000,0000 
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2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 



.TOC "THE INSTRUCTION LOOP -- FETCH ARGUMENTS" 

; HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH 



;CASE READ (E) 
40: MEM READ, 

[AR]_MEM, 

INST DISP 

;CASE 1 -- WRITE (E) 
41: [AR]_AC, 
INST DISP 

;CASE 2 -- DOUBLE READ 
42: MEM READ, 

[AR]_MEM 

VMA_[HR]+1, PXCT DATA, 
START READ 
MEM READ, . 
[ ARX ]_MEM , 
INST DISP 

;CASE 3 -- DOUBLE AC 
43: [AR]_AC 

[ARX]_AC[ 1 ] , 

INST DISP 



;CASE i 
44 : 

SHIFT: 



-- SHIFT 

READ [AR], 
SKIP DP18, 
SC_SHIFT-1 , 
LOAD FE, 
INST DISP 



;CASE 5 -- SHIFT COMBINED 

45: 0_AC[1] 

[BR]_AC*.5 LONG 
[BR]_[BR]*.5 LONG, 
J/SHIFT 



WAIT FOR DATA 

PUT WORD IN AR 

GO TO EXECUTE CODE 



;PUT AC IN AR 

;G0 TO EXECUTE CODE 



WAIT FOR DATA 
PUT HI WORD IN AR 
POINT TO E+1 
START MEMORY CYCLE 
WAIT FOR DATA 
LOW WORD IN ARX 
GO TO EXECUTE CODE 



GET HIGH AC 

PUT C(AC+1 ) IN ARX 

GO TO EXECUTE CODE 



LOOK AT EFFECTIVE ADDRESS 

SEE IF LEFT OR RIGHT 

PUT NUMBER OF PLACES TO SHIFT IN 

SC AND FE 
GO DO THE SHIFT 



PUT LOW WORD IN 
PUT AC IN BR & SHIFT BR ! Q RIGHT 
SHIFT BR!Q 1 MORE PLACE RIGHT 
GO DO SHIFT SETUP 



; KS10.MC1[4,31 1] MICRO 31(254) 

; SIMPLE. MIC[4. 311] 11:07 4-JAN-1979 



U 0046, 0372,3770,0303,4344,4007,0700,0000,0000,0000 

U 0047, 0372,3771,0003,4365,5007,0700,0200,0000,0002 

U 0372, 0412,3333,0003,4174,4007,0520,3010,0041,2000 

U 0373, 0000,4221,0004,4174,4001,2700,0000,0000,0000 

U 0050, 0000,3770,0103,4365,5001 ,2700, 0200,.0014, 0012 

U 0051, 0402,3771,0005,4365,5177,0521,3000,0041,2000 

U 0402, 0432,0111,0703,4174,4007,0700,0200,0004,0312 

U 0403, 0431,0111,0703,4174,4007,0700,0200,0004,0312 

U 0431, 0445,3551,0505,4374,0007,0700,0000,0077,7000 

U 0432, 0445,4551,0505,4374,0007,0700,0000,0000,0777 



U 0445, 0451,4557,0004,4365,5007,0701,0200,0000,0002 
U 0451, 0452,3447,0503,4174,4007,0700,0000,0000,0000 

U 0452, 0467,3447,0303,4174,4007,0700,2000,0011,0000 



U 0467, 0000,3443,0100,4174,4001,2700,0200,0014,0012 
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2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

231 1 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330, 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 



;CASE 
46: 



;CASE 
47: 

=0 

FPRO: 



FPR1 : 



;CASE 
50: 



;CASE 
51 : 



6 FLOATING POINT IMMEDIATE 

[ AR ]_[ AR ] SWAP, ;FLIP BITS TO LEFT HALF 

J/FPRO ;JOIN COMMON F.P. CODE 



DFPR1 : 
DFPR2: 



7 FLOATING POINT 
MEM READ, 
[ AR ]_MEM 

READ [AR], 
SC_EXP, FE_EXP, 
SKIP DPO, 
CALL [ARSIGN] 
[ARX]_0, 
INST DISP 

10 -- READ THEN PREFETCH 
MEM READ, 

[AR]_MEM THEN FETCH, 
INST DISP 

11 -r DOUBLE FLOATING READ 
SPEC MEM READ, 
[BR]_MEM, 

SC_EXP, FE_EXP, 

SKIP DPO, 3T 

[AR]_[AR]+1 , 

LOAD VMA, PXCT DATA, 

START READ, J/DFPR 1 

[AR]_[AR]+1 , 

LOAD VMA, PXCT DATA, 

START READ 

[BR]_-SIGN, 

J/DFPR2 

[BR]_+SIGN 

MEM READ, 3T , 

[ARX]_(MEM. AND. [MAG])*. 5 

ASH 

[AR]_[BR]*.5 - 

[AR]_[AR]*.5, 

SC_FE 

VMA_[PC], FETCH, 
INST DISP 



;WAIT FOR MEMORY (SPEC/MEM WAIT) 
; DATA INTO AR 

LOOK AT NUMBER 

PUT EXPONENT IN SC & FE 

SEE IF NEGATIVE 

EXTEND AR SIGN 

ZERO ARX 

GO TO EXECUTE CODE 



WAIT FOR DATA 

PUT DATA IN AR AND START A READ 

VMA HAS PC-M. 
GO DO IT 



WAIT FOR DATA 
HOLD IN BR 
SAVE EXPONENT 
SEE IF MINUS 
POINT TO E-M 
PUT IN VMA 

GO GET POSITIVE DATA 
POINT TO E+1 
PUT IN VMA 

GO GET NEGATIVE DATA 
SMEAR MINUS SIGN 
CONTINUE BELOW 
SMEAR PLUS SIGN 
WAIT FOR MEMORY 

SET SHIFT PATHS 
SHIFT AR 

COMPLETE SHIFTING 

PAGE FAIL MAY HAVE ZAPPED 

THE SC. 
GET NEXT INST 
DO THIS ONE 



o 

; KSIO.MCi t'4,31 1 ] MICRO 31(254) 

; SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



U 0052, 0404,4443,0000,4174,4007,0040,0000,0000,0000 
U 0404, 2740,4551,0202,4374,0007,0700,0000,0077,7740 
U 0405, 0000,4443,0000,4174,4001,2700,0000,0000,0000 



U 0412, 0001,4551,0303,4374,0004,1700,0000,0000,0777 
U 0413, 0001,3551,0303,4374,0004,1700,0000,0077,7000 
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2340 


; CASE 


12 


TEST FOR 10 


LEGAL 




234 1 


52 : 


SKIP 


10 LEGAL 






;IS 10 LEGAL? 


2342 


=0 


UUO 








; NO 


2343 




INST 


DISP 






;YES--DO THE INSTRUCTION 


2344 














2345 














2346 


; CASE 


13 -- 


RESERVED 








2347 


; 53 : 












2348 














2349 


;CASE 


14 


RESERVED 








2350 


; 54 : 












2351 














2352 


; CASE 


15 -- 


RESERVED" 








2353 


; 55 : 












2354 














2355 


;CASE 


16 -- 


RESERVED 








2356 


;56: 












2357 














2358 


;CASE 


17 


RESERVED 








2359 


;57 : 










• 


2360 














2361 


; EXTEND AR SIGN. 








2362 


; CALL 


WITH SKIP ON ARO, 


RETURNS 


1 ALWAYS 


2363 


=0 












2364 


ARSIGN 


: [AR] 


+SIGN, RETURN 


[1] 


; EXTEND + SIGN 


2365 




[AR] 


-SIGN, RETURN 


[13 


; EXTEND - SIGN 


2366 















KS10.MC1[4,311] 

SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 1504, 0434,4443,0000,4174,4007,0360,0000,0000,0000 



U 1505, 1515,3440,0404, 1 174,4007,0700,0400,0000, 1441 



U 1506, 1505,3333,0003,4175,5007,0701 ,0200,0000,0002 
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2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 



.TOC "THE INSTRUCTION LOOP -- STORE ANSWERS " 

NOTE: INSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY 
(E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST 
SO THAT IF A PAGE FAIL HAPPENS THE AC IS 
STILL INTACT. 



1500: 
BWRITE : 

;CASE 
; 1 500 : 

;CASE 1 
; 1501 : 

;CASE 2 
; 1502: 

;CASE 3 
; 1503: 

;CASE 4 
1504 : 
STSELF: 



;CASE 5 
1 505 : 
DAC : 



;CASE 6 

1506: 

STDBTH: 



;CASE 7 
; 1507: 



; BASE ADDRESS OF BWRITE DISPATCH 
RESERVED 

-- RESERVED 

-- RESERVED 

-- RESERVED 



STORE SELF 

SKIP IF ACO, 
J/STBTH1 

-- STORE DOUBLE AC 

AC[ 1 ]_[ARX] , 
J/STAC 



; I S AC # ZERO? 

;G0 TO STORE BOTH CASE 



; STORE AC 1 
;G0 STORE AC 



STORE DOUBLE BOTH (KA10 STYLE MEM AR ONLY) 



MEM WRITE, 
MEM_[ AR ] , 
d/DAC 

RESERVED 



WAIT FOR MEMORY 
STORE AR 

NOW STORE AC & AC+1 



V J 

KS10.MC1[4,31 1 ] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
11 :07 4-UAN-1979 



U 1514, 0104,4751,1217,4374,4007,0700,0000,0000,1000 



U 1515, 0100,3440,0303,0174,4156,4700,0400,0000,0000 



U 1516, 1 400 , 3333 , 0003 ,4175, 5007 , 070 1 , 0200 ,0000 , 0002 



U 1517, 1515, 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



U 0434, 
U 0435, 



1515, 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 
1 400 , 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



KS10 MICROCODE V123, 1 MARCH, 1982 -- SEAN KEENAN, 
THE INSTRUCTION LOOP STORE ANSWERS 



DON DO$SA 



Page 68 



2408 
2409 
2410 
241 1 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 



;CASE 10 
; 1510: 

;CASE 11 
; 151 1 : 

;CASE 12 
; 1512 : 

;CASE 13 
; 1513: 

;CASE 14 
1514: 

FL-BWRITE : 



RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 



;CASE 15 
1515 : 
STAC: 



HALT [BW14] 

STORE AC 

AC_[AR] , 
NEXT INST 



;CASE 16 
1516: 
STMEM 



STORE IN MEMORY 



MEM WRITE , 
MEM_[ AR ] , 
U/DONE 



;CASE 17 
1517: 

STBOTH: MEM WRITE 
MEM_[ AR ] , 
J/STAC 



STORE BOTH 



=0 

STBTH1 



STORE : 



MEM WRITE, 
MEM_[ AR ] , 
J/STAC 
MEM WRITE, 
MEM_[ AR ] , 
J/DONE 



; THE NEXT 4 CASES ARE ALSO 
;USED IN FLOATING POINT 



; STORE AC 

;D0 NEXT INSTRUCTION 



WAIT FOR MEMORY 
STORE AR 

START FETCH OF NEXT 



WAIT FOR MEMORY 
STORE AR 
NOW STORE AC 



WAIT FOR MEMORY 
STORE AR 
NOW STORE AC 
WAIT FOR MEMORY 
STORE AC 
START NEXT INST 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



D 0200, 1015, 1515, 1 100 

D 0201 , 0015, 1515,3000 

D 0202, 0116,1404,0700 

D 0203, 0004,1504,1700 

D 0204, 1015, 1402, 1 100 

D 0205, 0015,1402,3000 

D 0206, 0116,1402,0700 

D 0207, 0004,1402,1700 

D 0210, 1015, 1405, 1 100 

D 0211, 0015,1405,3000 

D 0212, 0116,1405,0700 

D 0213, 0004,1405,1700 

D 0214, 1015, 1403, 1 100 

D 0215, 0015, 1515,3000 

D 0216, 0116,1403,0700 

D 0217, 0004,1403,1700 



U 1 402 , 1 500 , 3770 , 0303 , 4344 , 4003 , 7700 , 0200 , 0003 , 000 1 



U 1 403 , 1 404 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 1 404 , 1 500 , 4443 , 0000 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



U 1405, 1404,2441 ,0303,4174,4467,0701 ,4000,0001 ,0001 
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2451 


.TOC 


"MOVE 


GROUP" 








2452 














2453 




. DCODE 










2454 


200: 


R-PF, 


AC, 


J/STAC 




;MOVE 


2455 




I-PF, 


AC, 


J/STAC 




; MOVE I 


2456 




w, 


M, 


J/MOVE 




;MOVEM 


2457 




RW, 


s, 


J/STSELF 




; MOVES 


2458 














2459 


204: 


R-PF, 


AC, 


J/MOVS 




;MOVS 


2460 




I-PF , 


AC, 


J/MOVS 




;MOVSI 


2461 




w, 


M , 


J/MOVS 




; MOVSM 


2462 




RW, 


s, 


J/MOVS 




;MOVSS 


2463 














2464 


210: 


R-PF , 


AC , 


J/MOVN 




; MOVN 


2465 




I-PF , 


AC , 


J/MOVN 




;MOVNI 


2466 




w, 


M, 


J/MOVN 




; MOVNM 


2467 




RW, 


s, 


J/MOVN 




;MOVNS 


2468 














2469 


214: 


R-PF, 


AC, 


J/MOVM 




;MOVM 


2470 




I-PF, 


AC, 


J/STAC 




;MOVMI 


2471 




w, 


M, 


J/MOVM 




; MOVMM 


2472 




RW, 


s, 


J/MOVM 




;MOVNS 


2473 




.UCODE 










2474 














2475 


1402: 












2476 


MOVS : 


[AR] [AR] SWAP, EXIT 






2477 














2478 


1403: 












2479 


MOVM: 


READ [AR], SKIP 


DPO, J/MOVE 




2480 














2481 


1404: 












2482 


MOVE : 


EXIT 










2483 


1 405 : 












2484. 


MOVN: 


[AR] - 


CAR], 




.NEGATE 


NUMBER 


2485 




AD FLAGS, 3T, 




.UPDATE 


FLAGS 


2486 




U/MOVE 






.STORE 


ANSWER 


2487 















KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



D 0250, 0015,1406,1500 

U 1406, 0471,3771,0005,0276,6007,0700,0200,0003,0002 
U 0471 , 1515,3333,0005,4175,5007,0701 ,0200,0000,0002 
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2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 



.TOC 



250: 



1406: 
EXCH: 



"EXCH" 

. DCODE 
R,W TEST, 
.UCODE 



[BR]_AC, 
START WRITE 
MEM WRITE, 
MEM_[BR] , 
J/STAC 



AC, 



J/EXCH 



COPY AC TO THE BR 

START A WRITE CYCLE 

COMPLETE WRITE CYCLE 

STORE BR (AC) IN MEMORY 

STORE THE AR IN AC. NOTE: AR 
WAS LOADED WITH MEMORY OPERAND 
AS PART OF INSTRUCTION DISPATCH 



KS10.MC1[4,311] 

SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4- JAN--1979 
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D 


0500 , 


1015, 


1410 


1 100 


D 


0501 \ 


001S! 


1410 


3000 


D 


0502, 


0016, 


1407 


1700 




AKAO 
KJZj\J<j , 


AAA/ 


■I ADA 


1 700 


n 

u 




1015 


1411 


1 100 


D 


0505, 


001S! 


1411 


3000 


D 


0506, 


0016, 


1413 


1700 


u 


ACA7 




1414 




n 

u 


\JZJ 1 \J , 




1432 


1 100 


D 


051 1 , 


0015, 


1432 


3000 


D 


0512, 


01 16, 


1432 


0700 




05 1 3 , 


0004 , 


1432 


1 700 


p 


05 1 4 


1015, 


1424 


1 100 


D 


0515' 


0015,' 


1424 


3000 


D 


0516, 


0116, 


1424 


0700 


D 


05 1 7 


nor>4 


1424 


1 700 




ACOA 
\Ju 4C.KJ , 


1015 


1433 


1 100 


D 


0521 , 


0015! 


1433 


3000 


D 


0522, 


0116, 


1433 


0700 


n 
u 


\J Zj <£. o , 




1433 


1 700 


n 

u 




1015 


1425 


1 100 


D 


0525, 


001s! 


1425 


3000 


D 


0526, 


01 16, 


1425 


0700 


D 


0527, 


0004, 


1425 


1700 


D 


0530, 


1015, 


1430 


1 100 


D 


0531 , 


0015, 


1430 


3000 


D 


0532, 


01 16, 


1430 


0700 


D 


0533, 


0004, 


1430 


1700 


D 


0534, 


1015, 


1422 


1 100 


D 


0535, 


0015, 


1422 


30O0 


D 


0536, 


01 16, 


1422 


0700 


D 


0537, 


0004, 


1422 


1700 



2503 
2504 
2505. 
2506 
2507 
2508 
2509 
2510 
251 1 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 



. TOC "HALFWORD GROUP " 

; DESTINATION LEFT HALF 



. DCODE 
500: R-PF, 
I-PF, 
RW, 
RW, 

R-PF, 
I-PF, 
RW, 
RW, 

510: R-PF, 
I-PF, 
W, 
RW, 

R-PF , 
I-PF, 
W, 
RW, 

520: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF , 
W, 
RW, 

530: R-PF, 
I-PF, 
W, 
RW, 

R-PF, 
I-PF, 
W, 
RW, 



AC, 


J/HLL 


AC, 


J/HLL 


M, 


J/HRR 


s, 


J/MOVE 


AC , 


U/HRL 


AC, 


J/HRL 


M, 


J/HRLM 


s , 


J/HRLS 


AC , 


J/HLLZ 


AC, 


J/HLLZ 


M, 


J/HLLZ 


s, 


J/HLLZ 


AC, 


U/HRLZ 


AC, 


d/HRLZ 


M, 


J/HRLZ 


s, 


J/HRLZ 


AC , 


J/HLLO 


AC, 


J/HLLO 


M, 


J/HLLO 


S , 


J/HLLO 


AC , 


J/HRLO 


AC, 


J/HRLO 


M, 


J/HRLO 


s, 


J/HRLO 


AC, 


J/HLLE 


AC, 


J/HLLE 


M, 


J/HLLE 


s, 


J/HLLE 


AC, 


J/HRLE 


AC, 


J/HRLE 


M , 


J/HRLE 


s, 


J/HRLE 



; HLLM = HRR EXCEPT FOR STORE 
; HLLS = MOVES 



KS10.Mt<[4,31 1 ] 
SIMPLE, MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



D 0540 
D 0541 
D 0542 
P 0543* 



D 0544 
D 0545 
D 0546 
D 0547 



D 0550 
D 0551 
D 0552 
D 0553 



0554 
0555 
0556 



D 0557 



0560 
0561 
0562 
0563 

0564 
0565 
0566 
0567 

0570 
0571 
0572 



D 0573 



0574 
0575 
0576 
0577 



1015 
0015 
0016 
0004 

1015 
0015 
0016 
0004 

1015 
0015 
01 16 
0004 

1015 
0015 
01 16 
0004 

1015 
0015 
01 16 
0004 

1015 
0015 
01 16 
0004 

1015 
0015 
01 16 
0004 

1015 
0015 
0116 
0004 



1407 
1407 
1410 
1404 

1412 
1412 
1415 
1416 

1420 
1420 
1420 
1420 

1426 
1426 
1426 
1426 

1421 
1421 
1421 
1421 

1427 
1427 
1427 
1427 

1417 
1417 
1417 
1417 

1423 
1423 
1423 
1423 



1 100 
3000 
1700 
1700 

1 100 
3000 
1700 
1700 

1 100 
3000 
0700 
1700 

1 100 
3000 
0700 
1700 

1 100 
3000 
0700 
1700 

1 100 
3000 
0700 
1700 

1 100 
3000 
0700 
1700 

1 100 
3000 
0700 
1700 



KS10 MICROCODE 


V123, 1 


MARCH, 


1982 -- 




HALFWORD GROUP 






; 2547 


; 


DESTINATION RIGHT HALF 


; 2548 










; 2549 


540: 


R-PF , 


AC , 


J/HRR 


; 2550 




I -PF , 


AC , 


J/HRR 


; 255 1 




RW, 


M, ' 


J/HLL 


; 2552 




RW , 


S , 


J/MOVE 


; 2553 










; 2554 




R-PF , 


AC , 


J/HLR 


; 2555 




I -PF , 


AC , 


J/HLR 


; 2556 




RW, 


M, 


J/HLRM 


; 2557 




RW, 


S , 


J/HLRS 


; 2558 










; 2559 


550: 


R-PF , 


AC , 


J/HRRZ 


; 2560 




I -PF , 


AC , 


J /HRRZ 


; 2561 




w , 


M, 


J/HRRZ 


; 2562 




RW , 


S , 


J /HRRZ 

\J / Mrs r\ t. 


; 2563 










; 2564 




R -PF , 


AC , 


J /HLRZ 


; 2565 




I -PF 


AC 


J /HLRZ 


; 2566 




W 


M 


J /HLRZ 


; 2567 




RW , 


S , 


J /HLRZ 


; 2568 










; 2569 


560: 


R-PF , 


AC , 


J/HRRO 


; 2570 




I -PF , 


AC , 


J /HRRO 


; 257 1 




w , 


M , 


J/HRRO 


; 2572 




RW , 


S , 


J/HRRO 


; 2573 










; 2574 




R-PF , 


AC , 


J/HLRO 


; 2575 




I - P F , 


AC , 


J/HLRO 


; 2576 




w , 


M , 


J/HLRO 


; 2577 




RW , 


S , 


J/HLRO 


; 2578 










; 2579 


570: 


R-PF , 


AC , 


J/HRRE 


; 2580 




I -PF , 


AC , 


J/HRRE 


; 258 1 




w, 


M , ' 


J/HRRE 


; 2582 




RW, 


s, 


J/HRRE 


; 2583 










; 2584 




R-PF , 


AC, 


J/HLRE 


; 2585 




I-PF, 


AC, 


J/HLRE 


; 2586 




w, 


M, 


J/HLRE 


; 2587 




RW, 


s, 


J/HLRE 


; 2588 










; 2589 




.UCODE 
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; HRRM = HLL EXCEPT FOR STORE 
; HRRS = MOVES 



2590 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 1407 , 1 500 , 377 1 , 0003 , 0276 , 0003 , 7700 , 0200 , 0003 , 000 1 
U 1410, 1500,3771,0003,0270,6003,7700,0200,0003,0001 



U 141 1 , 1410,3770,0303,4344,4007,0700,0000,0000,0000 

U 1412, 1 407 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1413, 0506,3770,0303,4344,4007,0700,0000,0000,0000 

U 0506 , 1 402 , 377 1 , 0003 , 0270 , 6007 , 0700 , 0000 , 0000 , 0000 

U 1414, 1 500 ,3770, 0303 ,4344, 0003 , 7 700 , 0200 , 0003 , 000 1 

U 1415, 0511,3770,0303,4344,4007,0700,0000,0000,0000 

U 051 1 , 1402,3771 ,0003,0276,0007,0700,0000,0000,0000 



U 1416, 1 500 , 37 70 , 0303 , 4340 , 4003 , 7 700 , 0200 ,0003 , 000 1 
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2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
261 1 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 



; FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE 

; THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF 

; AC INTO AR. TO DO A HRR. OBVIOUS THING FOR HLL . 

1407: 

HRR: [AR]_AC,HOLD RIGHT, EXIT 

1410: 

HLL: [AR]_AC,HOLD LEFT, EXIT 

HRL FLOW: 

AT HRL AR CONTAINS: 





f 


LH OF 


(E) i 


RH 


OF 


(E) 


; AR_ 


_AR SWAP 


GIVES: 












f 


RH OF 


(E) ! 


LH 


OF 


(E) 


; AT 


HLL, AR_ 


_AC,HOLD 


LEFT GIVES: 










I 


RH OF 


(E) ! 


RH 


OF 


AC 



THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC). 
THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR. 



1411: 




HRL: 


EAR] 


1412 : 




HLR: 


CAR] 


1413: 




HRLM: 


[AR] 




[AR] 


1414: 




HRLS: 


[AR] 


1415: 




HLRM: 


[AR] 




[AR] 


1416: 




HLRS: 


[AR] 



[AR]_[AR] SWAP, HOLD RIGHT, EXIT 



[ AR ]_[ AR ] SWAP, HOLD LEFT, EXIT 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 310 
1 1 :07 4-JAN-1979 



54) 



U 1417, 1 420 , 3333 , 0003 ,4174, 4007 , 0530 , 0000 , 0000 , 0000 

U 1 420 , 1 500 ,5731, 0003 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 

U 1421 , 1500,5431 , 1203,4174,4003,7700,0200,0003,0001 

U 1422, 1424, 3333 , 0003 ,4174, 4007 , 0530 , 0000 , 0000 , 0000 

U 1424, 1 402 ,3771, 0003 , 4374 , 0007 , 0700 , 0000 , 0000 , 0000 

U 1425, 1 402 ,3771, 0003 , 4374 , 0007 ,0700 , 0000 , 0077 ,7777 

U 1 423 , 1426, 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1426, 1 402 , 377 1 , 0003 , 4370 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1427, 1 402 , 377 1 , 0003 , 4370 , 4007 , 0700 , 0000 , 0077 ,7777 

U 1 430 , 1 432 , 3333 , 0003 , 41 74 , 4007 , 0520 , 0000 , 0000 , 0000 

U 1432, 1 500 ,5371, 0003 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 

U 1433, 1500,5341 , 1203,4174,4003,7700,0200,0003,0001 
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;N0W 


THE HALFWORD OPS WHICH CONTROL THE "OTHER " 


ZD4U 


; ENTER WITH 


r\ c ( c \ n d ( An \ tm ad 
U,,t \t. ) UK I.AL.J 1 in AK 


264 1 








2642 


1417 






2643 


HRRE 


READ 


L AR J , SKI P DP 1 8 


2644 


1420 






2645 


HRRZ 


1 AR J 


LEFT_0, EXIT 


2646 


1421 






2647 


HRRO 


Tad! 
L AR J 


ICCT — A CYTT 

Ltr 1 _ i , tAI 1 












1422 








HRLE 


READ 


r » n 1 ci/ T D nD < o 


265 1 


1 424 






OREO 


uni "7 
nXLc. 


Tad! 
L AK J_ 


u u J r\ uni n d t put . i /iwn\/c 


ICR'S 








<£t>D4 


HRLO 


r a n 1 
L AR J_ 


u u/tiithh uini n dttut .i/mhwc 
ft , ft / 1 ( I l f 1 , liULU K 1 van 1 , U/ MUVo 










2656 


1423 






2657 


HLRE 


READ 


L AR J , SK 1 P DPO 


2658 


1426 






2659 


HLRZ 


r A n T 

L AR j_ 


Jf , tf/O , HULD LtFT,u/MuV5 


2660 


1427 






266 1 


HLRO 


[AR]_ 


U U / "I T7 77 "7 uni n 1 r rx I /«in\/C 

Jf. , ft / 7 1 1 I 11 , HOLD LEr 1 , U/|viuV5 


2662 








2663 


1430 






2664 


HLLE 


READ 


[AR] .SKIP DPO 


2665 


1432 






2666 


HLLZ 


[AR] 


RIGHT_0, EXIT 


2667 


1433 






2668 


HLLO 


[AR] 


RIGHT_-1, EXIT 


2669 









KS10.MC1 [4,31 1 ] 

SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN- 1979 



D 0120, 0205, 1505, 1 100 
D 0121 , 0215, 1434, 1 100 



U 1434, 3071 ,4551 ,0404,4374,0007,0700,0010,0037,7777 
U 1436, 1515,3440,0404, 1 174,4007,0700,0400,0000, 1441 



D 0124, 0300,1567,0100 
D 0125, 0100,1565,0500 



U 1565, 3070,3771 ,0004, 1276,6007,0701 ,0010,0000, 1441 



U 1567, 0512,0113,0207,4174,4007,0700,0200,0003,0312 
U 0512, 0531,3333,0004,4175,5007,0701,0200,0000,0002 



U 0531, 0435,3443,0200,4174,4007,0700,0200,0003,0312 
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2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
' 2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 



.TOC 
120: 



1434 : 

DMOVN: 

1436: 



"DMOVE, DMOVN, DMOVEM, DMOVNM" 



124: 



1565: 
DMOVNM: 
1567: 
DMOVN 1 : 



. DCODE 
DBL R, 
DBL R, 
.UCODE 



DAC, 
AC, 



J/DAC 
J/DMOVN 



CLEAR ARXO, CALL [DBLNGA] 
AC[1] [ARX], J/STAC 



.DCODE 
DBL AC, 
W, 

.UCODE 



U/DM0VN1 
J/DMOVNM 



[ARX]_AC[ 1 ] ,CALL [DBLNEG] 

[HR]+[ONE] , 
LOAD VMA, 
START WRITE, 
PXCT DATA 

MEM WRITE, MEM_[ ARX ] 
VMA_[HR] , 
LOAD VMA, 
PXCT DATA, 
START WRITE, 
J/STORE 



GET E+1 

PUT THAT IN VMA 
STORE IN E+1 
DATA CYCLE 
STORE LOW WORD 
GET E 

SAVE IN VMA 
OPERAND STORE 
START MEM CYCLE 
GO STORE AR 



n 

KSIO.Mu , (4,31 1 ] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



D 0400, 0015,1441,3000 

D 0401, 0015,1441,3000 

D 0402, 0016,1441,2700 

D 0403, 0017,1441,2700 



U 1441 , 1500,4221 ,0003,4174,4003,7700,0200,0003,0001 



D 0404, 1015, 1442, 1 100 

D 0405, 0015,1442,3000 

D 0406, 0016,1442,1700 

D 0407, 0017,1442,1700 



U 1442, 1 500 ,4551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0410, 1015, 1443, 1 100 

D 041 1 , 0015, 1443,3000 

D 0412, 0016, 1443, 1700 

D 0413, 0017, 1443, 1700 



U 1 443 , 1 500 ,5551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0414, 1015, 1404, 1 100 

D 0415, 0015,1404,3000 

D 0416, 0016, 1404, 1700 

D 0417, 0017,1404,1700 

D 042o! 1015, 1444, 1100 

D 0421, 0015,1444,3000 

D 0422, 0016, 1444, 1700 

D 0423, 0017,1444,1700 



U 1 444 , 1442, 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0424, 0000, 1400, 1 100 

D 0425, 0000,1400,2100 

D 0426, 0116,1404,0700 

D 0427, 0116,1404,0700 
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2701 


.TOC 


"BOOLEAN GROUP " 






2702 














2703 




. DCODE 










2704 


400: 


I-PF,- 


AC, 


J/SETZ 






2705 




I-PF, 


AC, 


J/SETZ 






2706 




IW, 


M, 


J/SETZ 






2707 




iw, 


B, 


J/SETZ 






2708 




.UCODE 










2709 














2710 


1441 : 












271 1 


SETZ: 


t AR]_0, 


EXIT 








2712 














2713 




.DCODE 










2714 


404 : 


R-PF , 


AC, 


J/AND 






2715 




I-PF, 


AC, 


J/AND 






2716 




RW, 


M, 


J/AND 






2717 




RW, 


B, 


J/AND 






2718 




.UCODE 










2719 














2720 


1442: 












2721 


AND: 


[AR] [ AR ] . AND 


AC, EXIT 






2722 














2723 




.DCODE 










2724 


410: 


R-PF , 


AC, 


J/ANDCA 






2725 




I-PF, 


AC, 


J/ANDCA 






2726 




RW, 


M , 


J/ANDCA 






2727 




RW, 


B, 


J/ANDCA 






2728 




.UCODE 










2729 














2730 


1443: 












2731 


ANDCA: 


[AR] [ AR ] . AND 


NOT. AC, EXIT 






2732 














2733 




.DCODE 










2734 


414: 


R-PF, 


AC, 


J/MOVE 


; SETM = 


= MOVE 


2735 




I-PF, 


AC, 


J/MOVE 






2736 




RW, 


M, 


J/MOVE 


; SETMM 


= NOP THAT WRITES MEMORY 


2737 




RW, 


B, 


J/MOVE 


; SETMB 


= MOVE THAT WRITES MEMORY 


2738 














2739 


420: 


R-PF, 


AC, 


J/ ANDCM 






2740 




I-PF , 


AC, 


J/ANDCM 






2741 




RW, 


M, 


J/ANDCM 






2742 




RW, 


B , 


J/ANDCM 






2743 




.UCODE 










2744 














2745 


1444: 












2746 


ANDCM: 


[AR] .NOT. [AR] , J/ AND 






2747 














2748 




.DCODE 










2749 


424: 


R , 




J/DONE 






2750 




I , 




J/DONE 






2751 




w, 


M, 


J/MOVE 




; SETAM = MOVEM 


2752 




w, 


M , 


J/MOVE 




; SETAB , TOO 


2753 




.UCODE 











2754 



KS10. MC1 [4,31 1 ] MICRO 31(254) 

SIMPLE . MIC [4 , 3 1 1 ] 11:07 4-JAN-1979 



D 0430, 1015, 1445, 1 100 

D 0431, 0015,1445,3000 

D 0432, 0016,1445,1700 

D 0433, 0017,1445,1700 



U 1 445 , 1 500 ,6551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0434, 1015, 1446, 1 100 

D 0435, 0015,1446,3000 

D 0436, 0016,1446,1700 

D 0437, 0017, 1446, 1700 



U 1446 , 1 500 ,3551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0440, 1015, 1447, 1100 

D 0441, 0015,1447,3000 

D 0442, 0016, 1447, 1700 

D 0443, 0017,1447,1700 



U 1447, 1443, 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0444, 1015, 1450, 1 100 

D 0445, 0015,1450,3000 

D 0446, 0016,1450,1700 

D 0447, 0017, 1450, 1700 



U 1 450 , 1 500 ,7551, 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0450, 0015,1451,3000 

D 0451, 0015,1451,3000 

D 0452, 0016, 1451 ,2700 

D 0453, 0017,1451,2700 



U 1451 , 1500,7771 ,0003,0274,4003,7700,0200,0003,0001 
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2755 

2756 

2757 

2758 

2759 

2760 

2761 

2762 

2763 

2764 

2765 

2766 

2767 

2768 

2769 

2770 

2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 

2785 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800' 

2801 

2802 

2803 

2804 



430: 



1445: 
XOR: 



434: 



1446: 
ICR: 



440: 



1447: 
ANDCB : 



444: 



1450: 
EOV: 



450: 



1451 : 

SETCA: 



. DCODE 






R-PF, 


AC, 


J/XOR 


I-PF, 


AC, 


J/XOR 


RW, 


M, 


J/XOR 


RW, 


B, 


J/XOR 


.UCODE 







[AR]_[AR] .XOR. AC, EXIT 



.DCODE 

R-PF, 

I-PF, 

RW, 

RW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/IOR 
J/IOR 
J/IOR 
J/IOR 



[ AR 3_[ AR ] .OR. AC, EXIT 



.DCODE 
R-PF , 
I-PF, 
RW, 
RW, 

.UCODE 



AC, 
AC, 
M , 
B, 



J/ANDCB 
J/ANDCB 
J/ANDCB 
J/ANDCB 



[AR]_.NOT. [AR] , J/ANDCA 



.DCODE 

R-PF, 

I-PF, 

RW, 

RW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/EQV 
J/EQV 
J/EQV 
J/EQV 



[ AR ]_[ AR ] -EOV. AC, EXIT 



.DCODE 
I-PF, 
I-PF , 
IW, 
IW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/SETCA 
J/SETCA 
J/SETCA 
J/SETCA 



[ AR 3 .NOT. AC, EXIT 



KS10.MC1[4,311] 
SIMPLE. MIC[4,31 1 ] 



1 1 :07 4 



MICRO 31(254) 
■JAN- 1979 



D 0454, 
D 0455, 
D 0456, 
D 0457, 



1015, 1452, 1 100 
0015, 1452,3000 
0016, 1452, 1700 
0017, 1452, 1700 



U 1452, 
U 0532, 



0532 ,7771,. 0005 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 
1 500 ,3111, 0503 ,4174, 4003 , 7 700 , 0200 , 0003 , 000 1 



D 0460, 1015, 1453, 1 100 

D 0461, 0015,1453,3000 

D 0462, 0016,1453,1700 

D 0463, 0017,1453,1700 



U 1453, 1 500 ,7441, 0303 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



D 0464, 1015, 1454, 1 100 

D 0465, 0015,1454,3000 

D 0466, 0016,1454,1700 

D 0467, 0017,1454,1700 



U 1454, 1446,7441, 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0470, 1015, 1455, 1 100 

D 0471, 0015,1455,3000 

D 0472, 0016,1455,1700 

D 0473, 0017,1455,1700 



U 1455, 1453,4551, 0303 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 



D 0474, 0015,1456,3000 

D 0475, 0015,1456,3000 

D 0476, 0016,1456,2700 

D 0477, 0017,1456,2700 



U 1456,. 1500,2441,0703,4174,4003,7700,4200,0003,0001 



KS10 MICROCODE V123, 1 
BOOLEAN GROUP 



MARCH, 1982 SEAN KEENAN, DON DOSSA 
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2805 
2806 
2807 
2808 
2809 
2810 
281 1 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
' 2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 



454: 



1452: 
ORCA: 



460: 



1453: 
SETCM: 



464 : 



1454: 
ORCM: 



470: 



1455: 
ORCB: 



474: 



1456: 
SETO: 



. DCODE 






R-PF , 


AC, 


J/ORCA 


I-PF , 


AC, 


J/ORCA 


RW, 


M , 


J/ORCA 


RW, 


B, 


J/ORCA 


.UCODE 







[ BR ]_. NOT . AC 

[ AR ]_[ AR ] .OR. [BR] , EXIT 



.DCODE 

R-PF, 

I-PF, 

RW, 

RW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/SETCM 
J/SETCM 
J/SETCM 
J/SETCM 



[AR]_.NOT. [AR] , EXIT 



.DCODE 
R-PF , 
I-PF, 
RW, 
RW, 

.UCODE 



AC, 
AC, 
M, 
B , 



J/ORCM 
J/ORCM 
J/ORCM 
J/ORCM 



[AR] .NOT. [AR] , J/IOR 



.DCODE 
R-PF , 
I-PF, 
RW, 
RW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/ORCB 
J/ORCB 
J/ORCB 
J/ORCB 



[AR]_[AR] .AND. AC, J/SETCM 



.DCODE 
I-PF, 
I-PF , 
IW, 
IW, 

.UCODE 



AC, J/SETO 

AC, J/SETO 

M, J/SETO 

B, J/SETO 



[AR]_-[ONE], EXIT 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



D 0240, 0400,1622,1000 

D 0241, 0400,1632,1000 

D 0242, 0400,1612,1000 

D 0243, 0000,1462,2100 

D 0244, 0000,1466,3000 

D 0245, 0500,1470,1000 

D 0246, 0500,1464,1000 



U 1612, 0564,3771,0003,0276,6007,0700,1000,0031,1777 
U 1613, 0572,4551,1203,0276,6007,0700,1000,0041,0001 
U 0564, 1515,3445,0303,4174,4007,0700, 1020 , 004 1 , 000 1 
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2856 
2857 



.TOC 



"ROTATES AND LOGICAL SHIFTS ROT, LSH, JFFO" 



2858 




. DCODE 




2859 


240: 


SH, 


J/ASH 


2860 




SH, 


J/ROT 


2861 




SH, 


U/LSH 


2862 




I , 


J/JFFO 


2863 




I-PF, 


J/ASHC 


2864 


245: 


SHC, 


J/ROTC 


2865 




SHC , 


J/LSHC 


2866 




.UCODE 




2867 








2868 








2869 


; HERE 


IS THE CODE 


FOR LOGICAL SHIFT. THE EFFECTIVE 


2870 


; IN 


AR. 




2871 


16 12: 






2872 


LSH: 


[AR] AC, 


;PICK UP AC 


2873 




FE -FE-1, 


; NEGATIVE SHIFT 


2874 




J/LSHL 


;SHIFT LEFT 



2875 
2876 
2877 
2878 
2879 
2880 
2881 



1613: [ AR ]_AC . AND . MASK , 
FE_FE+1 , 
J/ASHR 

LSHL : [AR]_JAR]*2, 
SHIFT, J/STAC 



MAKE IT LOOK POSITIVE 
UNDO -1 AT SHIFT 
GO SHIFT RIGHT 

;SHIFT LEFT 

; FAST SHIFT & GO STORE AC 



KS10.MW(4,3113 
SIMPLE . MIC [ 4,31 1 ] 



MICRO 31(254) 
11 :07 4-UAN-1979 



U 1622, 0611,4222,0000,4174,4007,0700,0000,0000,0000 

U 1623, 0572,3771,0003,0276,6007,0700,1000,0041,0001 

U 0572, 1515,3447,0303,4174,4007,0700, 1020,0041 ,0001 

U 0611, 0454,3777,0003,0274,4007,0631,2000,0060,0000 

U 0454, 0454,3444,0303,4174,4447,0630,2000,0060,0000 



U 0455 , 1515, 3445 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
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2882 
2883 
2884 
2885 
2886 
2887 
2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 
2896 
2897 
2898 
2899 
2900 
2901 
2902 
2903 



; HERE IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS IS 
: IN AR. 



ASH36 LEFT 



" [AR]_[AR]*2 LONG, ASHC, STEP SC , ASH AROV" 



1622 
ASH: 
1623 

ASHR 



ASHLO: 
=0 

ASHL: 



ASHX: 



0_0, J/ASHLO 
[AR]_AC, 
FE_FE+ 1 
[AR]_[AR]*.5, 
ASH, SHIFT, 
J/STAC 

[AR]_AC*.5, 
STEP SC 

ASH36 LEFT, J/ASHL 



[AR] [AR]*2, J/STAC 



HARDWARE ONLY DOES ASHC 

GET THE ARGUMENT 

FE HAS NEGATIVE SHIFT COUNT 

SHIFT RIGHT 

FAST SHIFT 

STORE AC WHEN DONE 

; GET INTO 9 CHIPS 
;SEE IF NULL SHIFT 

SHIFT LEFT 

SLOW BECAUSE WE HAVE TO 
TEST FOR OVERFLOW 

; SHIFT BACK INTO 10 CHIPS 



/ 



KS10.MC1[4,31 1 ] 
SIMPLE. MIC[4 f 31 1 3 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 1632, 0706,3777,0003,0274,4007,0701,1000,0031,1777 

U 1633, 0632,3777,0003,0274,4007,0701,1000,0041,0001 

U 0632, 0646,3447,0303,4174,4007,0700,0000,0000,0000 

U 0646, 0701,3447,0303,4174,4037,0700,1020,0041,0001 

U 0701, 0455,3445,0303,4174,4007,0700,0000,0000,0000 

U 0706, 0747,3447,0303,4174,4007,0700,0000,0000,0000 



U 0747, 0701 ,3445,0303,4174,4037,0700, 1020,0041 ,0001 
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2904 ; HERE IS THE CODE FOR ROTATE. THE EFFECTIVE ADDRESS IS 

2905 ; IN AR. 

2906 1632: 

2907 ROT: 
2908 
2909 

2910 1633: 
291 1 
2912 
2913 
2914 

2915 ASHXX: 
2916 

2917 ROTL: 
2918 
2919 
2920 
2921 



[AR]_AC*.5, 

F£_/FE-1 , 

d/ROTL 

[AR]_AC*.5, 

FEJFE+1 

[AR]_[AR]*.5 

[AR]__[AR3*.5, 

ROT, SHIFT 

[AR]_[AR]*2, J/ASHX 

[AR]__[AR3*,5 
[AR]_[AR]*2, 
ROT , SHIFT, 
J/ASHXX 



PICK UP THE AC (& SHIFT) 
NEGATIVE SHIFT COUNT 
ROTATE LEFT 

PICK UP THE AC (& SHIFT) 
NEGATIVE SHIFT COUNT 
PUT IN 9 DIPS 
SHIFT RIGHT 
FAST SHIFT 
SHIFT TO STD PLACE 

PUT IN RIGHT 36-BITS 
ROTATE LEFT 
FAST SHIFT 

ALL DONE- -SHIFT BACK 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN--1979 



U 1462, 0502,4551,1205,0276,6007,0622,0000,0000,0000 



U 0502, 0752,3441 ,0301 ,4174,4007,0700,0200,0014,0012 
U 0503, 1400,4223,0000, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1441 

U 0752,' 0514,4443,0000,4174,4007,0700, 1000,0071 , 1764 



U 0514, 0514,3445,0505,4174,4007,0520,1000,0041,0004 

U 0515, 0767,3777,0003,4334,4057,0700,0000,0041,0000 

U 0767 , 1 006 ,4251, 0303 , 4374 , 4007 , 0700 ,0000 , 0000 , 0077 

U 1006, 0100,3440,0303,1174,4156,4700,0400,0000,1441 
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; 2922 1462: • 

; 2923 JFFO: [ BR ]_AC . AND . MASK , 4T , ; GET AC WITH NO SIGN 

; 2924 SKIP AD.EQ.O ; EXTENSION. SKIP IF 

; 2925 ; ZERO. 

; 2926 =0 [PC]_[AR], ;NOT ZERO- -JUMP 

; 2927 LOAD VMA , FETCH, ; GET NEXT INST 

; 2928 J/ JFFO 1 ; ENTER LOOP 

; 2929 AC[1J_0, J/DONE ;ZERO--DONE 

; 2930 

; 2931 JFF01: FE_-12. ; WHY -12.? WELL THE 

; 2932 ; HARDWARE LOOKS AT 

; 2933 ; BIT -2 SO THE FIRST 

; 2934 ; 2 STEPS MOVE THE BR 

; 2935 ; OVER. WE ALSO LOOK AT 

; 2936 ; THE DATA BEFORE THE SHIFT 

; 2937 ; SO WE END UP GOING 1 PLACE 

; 2938 ; TOO MANY. THAT MEANS THE 

; 2939 ; FE SHOULD START AT -3. 

; 2940 ; HOWEVER, WE COUNT THE FE BY 

; 2941 ; 4 (BECAUSE THE 2 LOW ORDER 

; 2942 ; BITS DO NOT COME BACK) SO 

; 2943 ; FE_-12. 

; 2944 =0 

; 2945 JFFOL: [BR]_[BR]*2, -.SHIFT LEFT 

; 2946 FE_FE+4, ; COUNT UP BIT NUMBER 

; 2947 SKIP DPO, J/JFFOL ; LOOP TILL WE FIND THE BIT 

; 2948 [AR]_FE ; GET ANSWER BACK 

; 2949 [ AR ]_[ AR ] . AND . # CLR LH,#/77 ; MASK TO 1 COPY 

; 2950 AC[1]_[AR], NEXT INST ; STORE AND EXIT 

; 2951 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 1464, O544,4443,00O0,4174,4007,O630,2G00,0060,0000 
U 1 465 , 1023 , 3333 , 0003 , 4 1 74 , 4007 ,0700 , 2000 , 003 1/5777 
U 1023, 0534,4443,0000,4174,4007,0630,2000,0060,0000 



U 0534, 
U 0535, 



0534 , 3446 , 0505 ,4174, 4057 , 0630 , 2000 , 0060 , 0000 
1026 , 3444 , 0505 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 



U 0544, 0544,3444,0505,4174,4057,0630,2000,0060,0000 

U 0545 , 1 026 , 3444 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , OOOO 

U 1 026 , 1 033 , 3444 , 0505 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 

U 1 033 , 1 053 , 3440 , 0505 ,0174, 4007 , 0700 , 0400 , OOOO , OOOO 
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- LSHC 



2952 




TOC 


2953 






2954 




SHIFT 


2955 






2956 




! - 


2957 




!0 


2958 




f - 


2959 






2960 






2961 






2962 






2963 






2964 






2965 






2966 






2967 






2968 






2969 






2970 






2971 






2972 






2973 


1464: 


2974 


LSHC: 


2975 


1465: 


2976 






2977 




=0 


2978 


LSHCR: 


2979 






2980 






2981 




=0 


2982 


LSHCL : 


2983 






2984 


LSHCX: 


2985 






2986 







"ROTATES AND LOGICAL SHIFTS LSHC" 



->!0000! 
? f . 



HIGH ORDER 36 BITS 



RAM FILE 



. f ■ 



OOOO! 



LOW ORDER 36 BITS 



Q-REGISTER 



O! 



STEP SC, J/LSHCL 

READ [AR], SC_-SHIFT-1 

STEP SC 

[BR]_[BR]*.5 LONG, STEP SC , LSHC , J/ LSHCR 
[BR]_[BR]*2 LONG,J/LSHCX 



[BR]_[BR]*2 LONG, LSHC, STEP- SC, J/LSHCL 
[BR]_[BR]*2 LONG 
[BR3_[BR]*2 LONG 
AC [BR], J/ASHCQ1 



V 



o 

; KS10.Muf[4,311] MICRO 31(254) 

; SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 1466, 0554,3333,0003,4174,4007,0330,3000,0041,4000 

U 0554, 1036,3772,0000, 1275,5007,0701 ,0000,0000, 1441 
U 0555, 0100,4443,0000,4174,4156,4700,0000,0000,0000 



U 1036, 0614,3776,0005,0274,4007,0631,0000,0000,0000 

U 0614, 0634,3447,0505,4174,4007,0700,2000,0041,1776 

U 0615, 0624,3447,0505,4174,4007,0700,2000,0031,1776 

U 0624, 0624,3446,0505,4174,4047,0630,2000,0060,0000 

U 0625 , 1046 , 3444 , 0505 , 4 i 74 , 4047 , 0700 , 0000 , 0000 , 0000 



U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000 

U 0635 , 1046 ,3444 , 0505 ,4174, 4447 , 0700 , 0000 , 0000 , 0000 

U 1046, 0642,0113,0505,0174,4007,0521,0400,0000,0000 

U 0642 , 1053 , 4662 , 0000 , 4374 , 0007 , 0700 , 0000 , 0037 , 7777 

U 0643 , 1053 , 3662 , 0000 , 4374 , 0007 ,0700 , 0000 , 0040 , 0000 

U 1053, 0100,3223,0000,1174,4156,4700,0400,0000,1441 
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2987 


. TOC 


"ROTATES AND LOGICAL SHIFTS ASHC" 


2988 








2989 








2990 


1466 : 






2991 


ASHC: 


READ [AR], 


PUT AR ON DP 


2992 




SC SHIFT, LOAD FE, 


PUT SHIFT IN BOTH SC AND FE 


2993 




SKIP ADR.EQ.O 


SEE IF NULL SHIFT 


2994 


=0 


AC[ 1 ] , 


NOT NULL- -GET LOW WORD 


2995 




J/ ASHC 1 


CONTINUE BELOW 


2996 


NIDISP : 


NEXT INST 


NULL- -ALL DONE 


2997 


ASHC 1 : 


[BR]_AC*.5 LONG, 


GET HIGH WORD 


2998 






AND SHIFT 


2999 




SKIP/SC 


SEE WHICH DIRECTION 


3000 


=0 


[BR] [BR]*. 5, 


ADJUST POSITION 


3001 




SC FE+S#, S#/1776, 


SUBRTACT 2 FROM FE 


3002 




J/ASHCL 


GO LEFT 


3003 




[BR] [BR]*. 5, 


ADJUST POSITION 


3004 




SC_S#-FE, S#/1776 


SC -2-FE, SC +# OF STEPS 


3005 


=0 




HERE TO GO RIGHT 


3006 


ASHCR : 


[BR] [BR]*. 5 LONG, 


GO RIGHT 


3007 




ASHC, 


SET DATA PATHS FOR ASHC (SEE DPE1) 


3008 




STEP SC, J/ASHCR 


COUNT THE STEP AND KEEP LOOPING 


3009 




[BR] [BR]*2 LONG , 


PUT BACK WHERE IT GOES 


3010 




ASHC, J/ASHCX 


COMPLETE INSTRUCTION 


301 1 








3012 


=0 






3013 


ASHCL : 


[BR] [BR]*2 LONG, 


GO LEFT 


3014 




ASHC, ASH AROV, 


SEE IF OVERFLOW 


3015 




STEP SC, J/ASHCL 


LOOP OVER ALL PLACES 


3016 




[BR] [BR]*2 LONG, 


SHIFT BACK WHERE IT GOES 


3017 




ASHC, ASH AROV 


CAN STILL OVERFLOW 


3018 


ASHCX: 


AC [BR ] + [ BR ] , 3T, 


PUT BACK HIGH WORD 


3019 




SKIP DPO 


SEE HOW TO FIX LOW SIGN 


3020 


=0 


Q . AND . # , #/377777, 


POSITIVE, CLEAR LOW SIGN 


3021 




HOLD RIGHT, J/ASHCQ 1 


GO STORE ANSWER 


3022 




Q Q.OR.#, #/400000, 


NEGATIVE, SET LOW SIGN 


3023 




HOLD RIGHT 


IN LEFT HALF 


3024 


ASHC01 : 


AC[1] 0, NEXT INST 


PUT BACK AND EXIT 


3025 









KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000 

U 1471 , 1064,3333,0003,4174,4007,0700,2000,0031 ,5777 

U 1064, 0644,4443,0000,4174,4007,0630,2000,0060,0000 

U 0644, 0644,3446,0505,4174,4077,0630,2000,0060,0000 

U 0645 , 1026 , 3444 , 0505 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000. 



U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000 



U 0743 , 1026 , 3444 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , OOOO 
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- ROTC 



3026 

3027 

3028 

3029 

3030* 

3031 

3032 

3033 

3034 

3035 

3036 

3037 

3038 

3039 

3040 

3041 

3042 

3043 

3044 

3045 

3046 

3047 

3048 

3049 

3050 

3051 

3052 

3053 

3054 

3055 

3056 

'3057 



TOC "ROTATES AND LOGICAL SHIFTS ROTC" 

SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE: 



=0 

ROTCL : 



. > ! 0000 
t 



HIGH ORDER 36 BITS 



RAM FILE 



0000 



LOW ORDER 36 BITS 



Q-REGISTER 



1470: 




ROTC: 


STEP 


1471 : 


READ 




STEP 


=0 




ROTCR : 


[BR] 




[BR] 



SC -SHIFT-1 



[BR]_[BR]*2 LONG, ROTC, STEP SC.J/ROTCL 

[BR]_[BR]*2 LONG, 

d/LSHCX 



KS10.MC1 [4,31 1 ] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



KS10 MICROCODE V123, 
TEST GROUP 



1 MARCH, 1982 SEAN KEENAN, DON DOSSA 
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3058 


.TOC 


"TEST GROUP" 












3059 
















3060 




. DCODE 












306 1 
















3062 


;SPECIAL MACROS USED ONLY IN B 










3063 


TN- 


ii n /ah 
"B/4 












3064 


TNE 


"B/0" 












3065 


WORD 


-TNE B/ 10 


; USED 










3066 


TNA 


" B/0 " 












3067 


TNN 


- "B/4 11 












3068 


WORD 


-TNN B/ 14 


; U S E D 










3069 


TZ - 


" B/5 " 












3070 


TZE 


an / 4 v 

"B/ 1 












307 1 


TZA 


"B/ 1 " 












3072 


TZN 


"B/5 " 












3073 


TC - 


"B/ 6 " 












3074 


TCE 


"B/2 " 












3075 


TCA 


"B/2 " 












3076 


TCN 


"B/ 6 " 












3077 


TO- 


"B/7" 












3078 


TOE 


"B/3 " 












3079 


TOA 


"B/3" 












3080 


TON 


n B/7" 












308 1 








D 


0600, 


0000, 


1400,2100 


3082 


600 : 


1 ♦ 


J/DONE 


D 


0601 , 


oooo, 


1 400 , 2 100 


3083 




I , 


J/DONE 


D 


0602 , 


0000 , 


4 A *7 C O 4 /"\/"\ 

14/5,21 OO 


3084 




I , TNE , 


J/TDXX 


D 


0603 , 


0000, 


4 A "7 A o A r\r\ 

1474 , 2 100 


3085 




I , TNE , 


J/TSXX 


D 


0604 , 


0000 , 


1473,2100 


3086 




I, TNA, 


J/TDX 


D 


0605 , 


0000, 


1472,2100 


3087 




I , TNA , 


J/TSX 


D 


0606 , 


0004 , 


1475,2100 


3088 




I , TNN , 


J/TDXX 


D 


0607 , 


0004 , 


A A T A f"\ A /-\ 

1474,2100 


3089 
3090 




I , TNN , 


J/TSXX 


D 


0610, 


0000, 


1400,2100 


3091 


610: 


I , 


J/DONE 


D 


061 1 , 


oooo, 


1 40O , 2 1 OO 


3092 




1 » 


J/DONE 


D 


0612 , 


0000, 


1475 , 1 100 


3093 




R , TNE , 


J/TDXX 


D 


061 3 , 


oooo, 


1474 , 1 100 


3094 




R , TNE , 


J/TSXX 


D 


0614 , 


oooo, 


1473 , 1 100 


3095 




R, TNA, 


J/TDX 


D 


0615 , 


oooo, 


1472 , 1 100 


3096 




R , TNA , 


J/TSX 


D 


06 16 , 


0004 , 


1 475 , 1 100 


3097 




R, TNN, 


J/TDXX 


D 


06 1 7 , 


0004 , 


A A T A A A /"\ y\ 

1474 , 1 100 


3098 
3099 




R, TNN, 


J/TSXX 


D 


0620, 


0005, 


1473,2100 


3100 


620: 


I, TZ- , 


J/TDX 


D 


062 1 , 


0005 , 


14/2,21 OO N 


3101 




I, TZ- , 


J/TSX 


D 


0622, 


0001, 


1475,2100 


3102 




I. TZE , 


J/TDXX 


D 


0623, 


0001 , 


1474,2100 


3103 




I, TZE, 


J/TSXX 


D 


0624, 


0001 , 


1473,2100 


3104 




I, TZA, 


J/TDX 


D 


0625, 


0001 , 


1472,2100 


3105 




I, TZA, 


J/TSX 


D 


0626, 


0005, 


1475,2100 


3106 




I, , TZN, 


J/TDXX 


D 


0627, 


0005, 


1474,2100 


3107 
3108 




I, TIN, 


J/TSXX 



IN TIOE 



IN TION 



; TRN- IS NOP 
;S0 IS TLN- 



; TDN- 
;TSN- 



IS A NOP 
ALSO 
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SIMPLE. MIC [4, 311] 1 1 : 07 4-JAN- 1979 TEST GROUP 



n 
u 


\JKj*j\J , 


\JVJUO , 


1 *+ / o 


1 inn 


3 109 


630 : 




TZ - 


J /TDX 


D 


0631 , 


0005, 


1472 


1 100 


31 10 




r! 


TZ- \ 


J/TSX 


D 


0632, 


0001 , 


1475 


1100 


311 1 




R , 


TZE, 


J/TDXX 


D 


0633, 


0001 , 


1474 


1100 


3112 




R , 


TZE, 


J/TSXX 


D 


0634, 


0001 , 


1473 


1100 


3113 




R , 


TZA, 


J/TDX 


D 


0635, 


0001 , 


1472 


1 100 


3114 




R , 


TZA, 


J/TSX 


D 


0636, 


0005, 


1475 


1100 


3115 




R , 


TZN, 


J/TDXX 


D 


0637, 


0005, 


1474 


1 100 


3116 
3117 




R , 


TZN, 


J/TSXX 


D 


0640, 


0006, 


1473 


2100 


31 18 


640: 


I , 


TC-, 


J/TDX 


D 


0641 , 


0006, 


1472 


2100 


3119 




I , 


TC- , 


J/TSX 


D 


0642, 


0002, 


1475 


2100 


3120 




I , 


TCE, 


J/TDXX 


D 


0643, 


0002, 


1474 


2100 


3121 




I , 


TCE , 


J/TSXX 


D 


0644, 


0002, 


1473 


2100 


3122 




I , 


TCA, 


J/TDX 





0645, 


0002, 


1472 


2100 


3123 




I , 


TCA , 


J/TSX 


D 


0646, 


0006, 


1475 


2100 


3124 




I , 


TCN, 


J/TDXX 


D 


0647, 


0006, 


1474 


2100 


3125 




I , 


TCN, 


J/TSXX 












3126 










D 


0650, 


0006, 


1473 


1100 


3127 


650: 


R, 


TC- , 


J/TDX 


D 


0651 , 


0006, 


1472 


1100 


3128. 




R, 


TC- , 


J/TSX 


D 


0652 , 


0002, 


1475 


1100 


3129 




R, 


TCE, 


J/TDXX 


D 


0653, 


0002, 


1474 


1100 


3130 




R, 


TCE, 


J/TSXX 


D 


0654, 


0002, 


1473 


1100 


3131 




R, 


TCA, 


J/TDX 


D 


0655, 


0002, 


1472 


1100 


3132 




R, 


TCA, 


J/TSX 


D 


0656, 


0006, 


1475 


1 100 


3133 




R , 


TCN, 


J/TDXX 


D 


0657, 


0006, 


1474 


1100 


3134 




R, 


TCN, 


J/TSXX 


D 


0660, 


0007, 


1473 


2100 


3135 


660: 


I , 


TO- , 


J/TDX 


D 


0661 , 


0007, 


1472 


2100 


3136 




I , 


TO- , 


J/TSX 


D 


0662, 


0003, 


1475 


2100 


3137 




I , 


TOE, 


J/TDXX 


D 


0663, 


0003, 


1474 


2100 


3138 




I , 


TOE, 


J/TSXX 


D 


0664, 


0003 , 


1473 


2100 


3139 




I , 


TOA, 


J/TDX 


D 


0665, 


0003, 


1472 


2100 


3140 




I , 


TOA, 


J/TSX 


D 


0666, 


0007, 


1475 


2100 


3141 




I , 


TON, 


J/TDXX 


D 


0667, 


0007, 


1474 


2100 


3142 




I , 


TON, 


J/TSXX 












3143 










D 


0670, 


0007, 


1473 


1 100 


3144 


670: 


R, 


TO- , 


J/TDX 


D 


0671 , 


0007, 


1472 


1 100 


3145 




R, 


TO- , 


J/TSX 


D 


0672, 


0003, 


1475 


1100 


3146 




R, 


TOE, 


J/TDXX 


D 


0673, 


0003, 


1474 


1100 


3147 




R, 


TOE, 


J/TSXX 


D 


0674, 


0003, 


1473 


1100 


3148 




R, 


TOA, 


J/TDX 


D 


0675, 


0003, 


1472 


1 100 


3149 




R , 


TOA, 


J/TSX 


D 


0676, 


0007, 


1475 


1 100 


3150 




R, 


TON, 


J/TDXX 


D 


0677, 


0007, 


1474 


1 100 


3151 




R, 


TON, 


J/TSXX 












3152 











KS10.MCl[4,31 1 ] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 1472, 1473, 37 70, 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1473, 0014,4221,0005,4174,4003,7700,0000,0000,0000 

U 1474, 1475, 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , OQOO , 0000 

U 1475, 0014,4551,0305,0274,4003,7700,0000,0000,0000 
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3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 1 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 



.UCODE 

THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE( IMMEDIATE OR MEMORY) 
IN THE A FIELD, DISPATCH TO HERE ON THE J FIELD, AND RE-DISPATCH 
FOR THE MODIFICATION ON THE B FIELD. 

ENTER WITH 0,E OR (E) IN AR , B FIELD BITS 2 AND 3 AS FOLLOWS: 
NO MODIFICATION 

1 OS 

1 COMPLEMENT 
1 1 ONES 

THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE 
ORDER OF INSTRUCTIONS AT TGROUP . 

THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE 
OF THE SKIP 

1 SKIP IF AC. AND. MASK . NE . O (TXX- AND TXXN) 

O SKIP IF AC. AND. MASK .EQ. O (TXXA AND TXXE ) 

;BIT IS UNUSED AND MUST BE ZERO 



1472: 
TSX: 
1473: 
TDX: 

1474 
TSXX 
1475 
TDXX 



[ AR ]_[ AR ] SWAP 
[BR]_0,TEST DISP 

[AR]_[AR] SWAP 

[ BR ]_[ AR ] .AND. AC, 
TEST DISP 



;TSXX AND TLXX 

; ALWAYS AND NEVER SKIP CASES 

;TSXE, TSXN, TLXE, TLXN 
; TDXE , TDXN, TRXE , TRXN 



KS10.MC1 [4,31 1 ] 

SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4 -JAN- 1979 



U 0014, 1400,3333,0005,4174,4007,0571,0000,0000,0000 

U 00 1 5 , 1077 , 744 1 , 0303 , 4 1 74 , 4007 , 0700 ,0000 , 0000 , 0000 

U 0016, 1 1 16,6551 ,0303,0274,4007,0700,0000,0000,0000 

U 0017, 11 16,3551 ,0303,0274,4007,0700,0000,0000,0000 



U 1077, 1 1 16,4551 ,0303,0274,4007,0700,0000,0000,0000 
U 1116, 0014,3440,0303,0174,4007,0700,0400,0000,0000 
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3186 ; TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM 

3187 

3188 =1100 

3 189 TEST-TABLE: 

3190 

3191 ;CASE & 4 TXNX 

3192 TXXX: READ [BR], TXXX TEST, 3T , J/DONE 
3193 

3194 ;CASE 1 & 5 -- TXZ AND TXZX 

3195 [AR]_.NOT. [AR] , J/TXZX 
3196 

3197 ;CASE 2 & 6 TXC AND TXCX 

3198 [ AR ]__( AR ] . XOR . AC , J/TDONE 
3199 

3200 ;CASE 3 & 7 TXO AND TXOX 

3201 [AR]__[AR3 . OR . AC , J/TDONE 
3202 

3203 ; THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF 

3204 ; AD.EQ.O AND DROM B IS 0-3 OR AD.NE.O AND DROM B IS 4-7. 

3205 

3206 TXZX: [ AR ]_[ AR ] . AND . AC 

3207 TDONE: AC_[ AR ] , J/TXXX 

3208 ; READ BR, TXXX TEST, J/DONE 
3209 



n 

; KS10.MC-rC4.311] MICRO 31(254) 

; SIMPLE. MIC[4, 31 1 ] 1 1 : 07 4- JAN- 1979 



| U 0250, 0110,3443,0100,4174,4156,4700,0200,0014,0012 

| U 0251, 1400,3333,0003,4174,4007,0520,0000,0000,0000 

•J U 0252, 1400,3333,0003,4174,4007,0621,0000,0000,0000 

f 

J U 0253, 1400,3333,0003,4174,4007,0421,0000,0000,0000 

g U 0254, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

I 

1 . U 0255, 0260,3333,0003,4174,4007,0520,0000,0000,0000 

U 0256, 0260,3333,0003,4174,4007,0621,0000,0000,0000 

U 0257, 0260,3333,0003,4174,4007,0421,0000,0000,0000 
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3210 

321 1 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

3219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237' 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 



.TOC 


"COMPARE 


-- CAI CAM" 




. DCODE 




;SPECIAL 


B - F I ELD 


ENCODING USED BY SKIP 


; INSTRUCTIONS: 




SJC- 


"B/0" 


NEVER 


SJCL 


"B/1" 


LESS 


SJCE 


"B/2" 


EQUAL 


SJCLE 


"B/3" 


LESS EQUAL 


SJCA 


"B/4" 


ALWAYS 


SJCGE 


"B/5" 


GREATER THAN OR EQUAL 


SJCN 


"B/6" 


NOT EQUAL 


SJCG 


"B/7" 


GREATER 



.UCODE 

;C0MPARE TABLE 
= 1000 

SKIP-COMP-TABLE: 

;CASE O -- NEVER 
DONE 

;CASE 1 -- LESS 

READ [AR] ; 

;CASE 2 -- EQUAL 
SKIPE: READ [AR], 



SKIP DPO,J/D0NE 



SKIP AD.EQ.O, J/DONE 



;CASE 3 -- LESS OR EQUAL " 

READ [AR], SKIP AD . LE . O , J/DONE 

;CASE 4 ALWAYS 

VMA_[PC]+1, NEXT INST FETCH, FETCH 

;CASE 5 -- GREATER THAN OR EQUAL 

READ [AR], SKIP DPO,J/SKIP 

;CASE 6 -- NOT EQUAL 

READ [AR], SKIP AD . EQ . , J/SKI P 

;CASE 7 -- GREATER 

READ [AR], SKIP AD . LE . O , J/SKI P 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

SIMPLE. MIC [4, 311] 1 1 : 07 4~ JAN- 1979 



D 0300, 
D 0301 , 
0302, 
0303, 
0304, 
0305, 
0306, 
0307, 



D 
D 
D 
D 
D 
D 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1400, 
1476, 
1476, 
1476, 
1476, 
1476, 
1476, 
1476, 



2100 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



D 0310, 
D 031 1 , 
D 0312, 
D 0313, 
D 0314, 
D 0315, 
D 0316, 
D 0317, 



0000, 1476, 
1476, 
1476, 
1476, 
1476, 
1476, 
1476, 
1476, 



0001 , 
0002, 
0003, 
0004, 
0005 , 
0006, 
0007, 



1100 
1100 
1 100 
1100 
1 100 
1 100 
1 100 
1 100 



U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000 
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3256 

3257 300: 

3258 

3259 

3260 

3261 

3262 

3263 

3264 

3265 

3266 310: 

3267 

3268 

3269 

3270 

3271 

3272 

3273 

3274 

3275 

3276 1476 

3277 CAIM 
3278 



. DCODE 








but , 


u/ UUNt 


I , 


SJCL, 


J/CAIM 


I , 


SJCE, 


J/CAIM 


I , 


SdCLE, 


J/CAIM 


I , 


SJCA, 


J/CAIM 


I , 


SJCGE, 


J/CAIM 


I , 


SJCN, 


J/CAIM 


I , 


SJCG, 


J/CAIM 


R , 


SJC-, 


J/CAIM 


R , 


SJCL, 


J/CAIM 


R, 


SJCE, 


J/CAIM 


R , 


SJCLE , 


J/CAIM 


R , 


SJCA, 


J/CAIM 


R, 


SJCGE , 


J/CAIM 


R , 


SJCN, 


J/CAIM 


R, 


SJCG, 


J/CAIM 


.UCODE 







[ARJ_AC-[AR3 , 3T, SKIP-COMP DISP 



o 

; KS10.MCT[4,311] MICRO 31(254) 

; SIMPLE. MIC[4, 311] 1 1 : 07 4- JAN- 1979 



D 0330, 0000,1477,1100 

D 0331, 0001,1477,1100 

D 0332, 0002,1477,1100 

D 0333, 0003,1477,1100 

D 0334, 0004,1477,1100 

D 0335, 0005,1477,1100 

D 0336, 0006,1477,1100 

D 0337, 0007,1477,1100 



U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000 
U 0744, 0250,3440,0303,0174,4003,7700,0400,0000,0000 
U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000 



D 


0350, 


0000, 1431 


1500 


D 


0351 , 


0001 , 1431 


1500 


D 


0352, 


0002, 1431 


1500 


D 


0353, 


0003, 1431 


1500 


D 


0354, 


0004, 1431 


1500 


D 


0355, 


0005, 1431 


1500 


D 


0356, 


0006, 1431 


1500 


D 


0357, 


0007, 1431 


1500 



U 1431 , 1 123,01 1 1 ,0703,4174,4467,0701 ,0000,0001 ,0001 
U 1123, 1 1 36 , 4443 , 0000 , 4 1 74 , 4007 , 0700 , 0200 , 0003 , 0002 
U 1136, 1477, 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000' , 0002 



D 0370, 
D 0371 , 
D 0372, 
D 0373, 
D 0374, 
D 0375, 
D 0376, 
D 0377, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1437, 
1437, 
1437, 
1437, 
1437, 
1437, 
1437, 
1437, 



1500 
1500 
1500 
1500 
1500 
1500 
1500 
1500 



U 1437, 



1 123, 1 1 1 1 ,0703,4174,4467,0701 ,4000,0001 ,0001 
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3279 .TOC "ARITHMETIC SKIPS AOS, SOS, SKIP" 

3280 ; ENTER WITH (E) IN AR 
3281 



OOQO 




nrnnc 






o Zo o 


Q OA . 


K , 


out- , 


. l/QtfTDC. . MHT A MOD TP AT KIP C\ 
U/ jMrj , InU I A INUr ir ALr . IMt . \J 






p 




. | /Cl/ T DC 


3285 






S JCE 


1 1 /^k T 

KJ / O r\ i. r O 


3286 




r! 


SJCLE, 


J/SKIPS 


3287 




R , 


SJCA, 


J/SKIPS 


3288 




R , 


SJCGE , 


J/SKIPS 


3289 




R, 


SJCN, 


J/SKIPS 


3290 




R, 


SJCG, 


J/SKIPS 


3291 




.UCODE 






3292 










3293 


1477: 








3294 


SKIPS: 


FIX [AR] 


SIGN, 




3295 




SKIP IF 


ACO 





3296 =0 AC_[AR] ,SKIP-COMP DISP 

3297 SKIP-COMP DISP 
3298 

3299 . DCODE 

3300 350: RW, SJC-, J/AOS 

3301 RW, SJCL, J/AOS 

3302 RW, SJCE, J/AOS 

3303 RW, SJCLE, J/AOS 

3304 RW, SJCA, J/AOS 

3305 RW, SJCGE, J/AOS 

3306 RW, SJCN, J/AOS 

3307 RW, SJCG, J/AOS 

3308 .UCODE 
3309 

3310 1431: 

3311 AOS: [AR]_[AR]+1, 3T , AD FLAGS 

3312 XOS: START WRITE 

3313 MEM WRITE, MEM_[AR] , J/SKIPS 
3314 

3315 .DCODE 



3316 370: 


RW, 


SJC- , 


J/SOS 


3317 


RW, 


SJCL, 


J/SOS 


3318 


RW, 


SJCE, 


J/SOS 


3319 


RW, 


SJCLE, 


J/SOS 


3320 


RW, 


SJCA, 


J/SOS 


3321 


RW, 


SJCGE, 


J/SOS 


3322 


RW, 


SJCN, 


J/SOS 


3323 


RW, 


SJCG, 


J/SOS 



3324 .UCODE 
3325 

3326 1437: 

3327 SOS: [ AR ]_[ AR ] - 1 , 3T , AD FLAGS, J/XOS 
3328 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



U 0270, 0100,3440,0505,0174,4156,4700,0400,0000,0000 

U 0271, 0762,3770,0505,0174,4007,0520,0400,0000,0000 

U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000 

U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000 

U 0274, 0764, 3440, 0505, O 174, 4007, 0700, 0400, 0000,0000 

U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000 

U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000 

U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000 



U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012 
U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012 



U 0764, 0110,3441,0301,4170,4156,4700,0200,0014,0012 
U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012 
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3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 
3358 
3359 
3360 
3361 
3362 
3363 
3364 
3365 
3366 
3367 



. TOC "CONDITIONAL JUMPS JUMP, AO J , SOJ, AOBJ" 
; ENTER WITH E IN AR 

= 1000 

JUMP-TABLE: 

CASE O -- NEVER 

AC_[BR], NEXT INST 

CASE 1 LESS 

AC_[BR] TEST, SKIP DPO, J/JUMP- 

CASE 2 -- EQUAL 

ACJBR] TEST, SKIP AD.EQ.O, J/JUMP- 

CASE 3 -- LESS THAN OR EQUAL 

ACJBR] TEST, SKIP AD.LE.O, J/JUMP- 

CASE 4 ALWAYS 
JMPA: AC_[BR], J/JUMPA 

CASE 5 -- GREATER THAN OR EQUAL TO 

ACJBR] TEST, SKIP DPO, J/JUMPA 

CASE 6 NOT EQUAL 

AC_JBR] TEST, SKIP AD.EQ.O, J/JUMPA 

CASE 7 GREATER 

AC [BR ] TEST, SKIP AD.LE.O, J/JUMPA 



JUMP-: DONE 
JUMPA 



JUMPA: JUMPA 
DONE 



KS10.MCi[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



D 0320, 0000,1400,2100 

D 0321, 0001,1440,2100 

D 0322, 0002,1440,2100 

D 0323, 0003,1440,2100 

D 0324, 0004,1520,2100 

D 0325, 0005,1440,2100 

D 0326, 0006,1440,2100 

D 0327, 0007,1440,2100 



U 1440, 0270,3771,0005,0276,6003,7700,0000,0000,0000 



D 0340, 0000,1611,3000 

D 0341 , 0001 , 161 1 ,2100 

D 0342, 0002, 1611 ,2100 

D 0343, 0003,1611,2100 

D 0344, 0004,1611,2100 

D 0345, 0005,1611,^100 

D 0346, 0006, 161 1 ,2 TOO 

D 0347, 0007, 161 1 ,2100 



U 1611, 0270,0551,0705,0274,4463,7702,0000,0001,0001 



D 0360, 0000,1542,3000 

D 0361 , 0001 , 1542,2100 

D 0362, 0002,1542,2100 

D 0363, 0003,1542,2100 

D 0364, 0004,1542,2100 

D 0365, 0005,1542,2100 

D 0366, 0006,1542,2100 

D 0367, 0007,1542,2100 



U 1542, 0270,2551,0705,0274,4463,7702,4000,0001,0001 

D 0252, 0005,1547,2100 
D 0253, 0001,1547,2100 



U 1547, 0270,0551,1505,0274,4403,7701,0000,0000,0000 
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3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
34 1 1 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 



320: 



1440: 
JUMP : 



340: 



1611: 
AOJ: 



360: 



1542: 
SOJ: 



252: 



1547 : 
AOBJ: 



DCODE 








SJC- , 


il/DONE 


i ! 


sjcl! 


J/JUMP 




ICF 


. 1 /■ II IMP 
U / UUI»lr 


i \ 


SJCLE 


, J/JUMP 


i , 


SJCA, 


J/JRST 


i , 


SJCGE 


, J/JUMP 


T 

1 , 




1 / II IMD 


T 

1 , 




. 1 /, II IMP 








[BR] AC 


JUMP 


} I SP 


DCODE 






1 -PF , 


SJC- , 


J/AO J 


I , 


SJCL, 


J/AOJ 


I , 


SJCE, 


J/AOJ 


I , 


SJCLE 


, J/AOJ 


I , 


SJCA, 


J/AOJ 


I , 


SJCGE 


J/AOJ 


I , 


SJCN, 


J/AOJ 


I , 


SJCG, 


J/AOJ 



.UCODE 



[BR]_AC+1, AD FLAGS, 4T , JUMP DISP 



.DCODE 

I-PF, 

I , 

I , 

I , 

I , 

I , " 
I , 
I , 

.UCODE 



SJC- , 

SJCL, 

SJCE, 

SJCLE , 

SJCA, 

SJCGE, 

SJCN, 

SJCG, 



J/SOJ 
J/SOJ 
J/SOJ 
J/SOJ 
J/SOJ 
J/SOJ 
J/SOJ 
J/SOJ 



[BR]_AC-1, AD FLAGS, 4T , JUMP DISP 
.DCODE 

I,- SJCGE, J/AOBJ 

I, SJCL, J/AOBJ 

.UCODE 



[BR }_AC+ 1000001 , 
INH CRY 1 8 , 3T, 
JUMP DISP 



ADD 1 TO BOTH HALF WORDS 
NO CARRY INTO LEFT HALF 
HANDLE EITHER AOBJP OR AOBJN 



KS10.MC1 [4,31 1 J MICRO 31(254) 

SIMPLE. MIC[4, 31 1] 11:07 4-JAN- 1-979 



D 0254, 0000,1520,6000 
D 0255, 0000,1540,2100 



U 1520, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1521, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1522, O15O,1113,O7O1,417O,40O7,07O0,42OO,O004,0012 

U 1523 , 2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 1524, 1 004 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 



U 1525, 2677 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 1526, 0320,4443,0000,4174,4007,0340,0000,0000,0000 

U 1527, 1014,4443, 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 

U 1530, 1010, 1 1 13,0701 ,4170,4007,0040,4200,0004,0012 

U 1531, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1532, 0300,1113,0701,4170,4007,0040,4200,0004,0012 

U 1533, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1534, 1024 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 

U 1535, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1536, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1537, 2740,4551,0202,4374,0007,0700,0000,0077,7740 
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3420 . TOC "AC DECODE JUMPS -- JRST, JFCL" 

3421 

3422 . DCODE 

3423 254: I.VMA/O, AC DISP, J/JRST ;DISPATCHES TO 1 OF 16 

3424 ; PLACES ON AC BITS 

3425 I, J/JFCL 

3426 .UCODE 
3427 

3428 ;JRST DISPATCHES TO ONE OF . 16 LOC'NS ON AC BITS 
3429 

3430 =0000 

3431 1520: 

3432 JRST: JUMPA ; (0) JRST O, 

3433 1521: JUMPA ;(1) PORTAL IS SAME AS JRST 

3434 1522: VMA_[PC]-1, START READ, ;(2) JRSTF 

3435 J/JRSTF 

3436 1523: UUO ;(3) 

3437 1524: SKIP KERNEL, J/HALT ;(4) HALT 

3438 1525: 

3439 XJRSTFO: VMA_[AR], START READ, ;(5) XJRSTF 

3440 J/XJRSTF 

3441 1526: SKIP KERNEL, J/XJEN ;(6) XJEN 

3442 1527: SKIP KERNEL, J/XPCW ;(7) XPCW 

3443 1530: VMA_[PC]-1, START READ, ; ( 10) 

3444 SKIP 10 LEGAL, J/ JRST 10 

3445 1531: UUO ;OD 

3446 1532: VMA_[PC]-1, START READ, ;(12) JEN 

3447 SKIP 10 LEGAL, J/JEN 

3448 1533: UUO ;(13) 

3449 1534: SKIP KERNEL, J/SFM ;(14) SFM 

3450 1535: UUO ; (15) 

3451 1536: UUO ;(16) 

3452 1537: UUO ;(17) 
3453 



KS10.MC1£4, 31 1 ] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 0150, 1 143,3771 ,0002,4365,5217,0700,0210,0000,0002 

U 0152; 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1143, 0030,4443,0000,2174,4006,6700,0000,0000,0000 

U 003Q, 0002,3773,0000,2274,4464,1700,0000,0001,0004 

U 0032, 0002,3333,0002,4174,4464,1700,0000,0001,0004 

U 0034, 2621 ,0551 ,0202,2270,4007,0700,0200,0004,0012 

U 0036, 2621,3443,0200,4174,4007,0700,0200,0004,0112 



U 2621 , 1 143, 3771 , 0002 , 4365 , 52 1 7 , 0700, 0200, 0000, 0002 
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3454 


=0* 






3455 


JRSTF : 


MEM READ , 


WAIT FOR DATA 


3456 




[HR] MEM, 


STICK IN HR 


3457 




LOAD INST EA, 


LOAD @ AND XR 


3458 




CALL [JRSTO] 


COMPUTE EA AGAIN 


3459 




JUMPA 


JUMP 


3460 








346 1 


JRSTO : 


EA MODE DISP ; WHAT TYPE OF EA? 


3462 


= 100* 






3463 




READ XR, 


INDEXED 


3464 




LOAD FLAGS, 


GET FLAGS FROM XR 


3465 




UPDATE USER, 


ALLOW USER TO SET 


3466 




RETURN [2] 


ALL DONE 


3467 




DC An r 1_1D 1 
K t AD L nK J , 


PLA I N 


3468 




LOAD FLAGS, 


LOAD FLAGS FROM INST 


3469 




UPDATE USER, 


ALLOW USER TO SET 


3470 




RETURN [2] 


RETURN 


347 1 




[HR] [HR]+XR, 


BOTH 


3472 




LOAD VMA, 


FETCH IND WORD 


3473 




START READ, 


START MEM CYCLE 


3474 




J/ JRST 1 


CONTINUE BELOW 


3475 




VMA [HR], 


INDIRECT 


3476 




START READ, 


FETCH IND WORD 


3477 




PXCT EA, 


SETUP PXCT STUFF 


3478 




J/ JRST 1 


CONTINUE BELOW 


3479 


JRST 1 : 


MEM READ, 


WAIT FOR DATA 


3480 




[HR] MEM, 


LOAD THE HR 


3481 




LOAD INST EA, 


LOAD 9 AND XR 


3482 




J/JRSTO 


LOOP BACK 



3483 



KS10.MC1[4,31 1 ] MICRO 31(254) 

SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



U 1004, 274O,4551,O2O2,4374,OOO7,O7OO f 0OO0,OO77,774O 
U 1005, 2625,3441 , 0301 , 4 1 74 , 4007 , 0700 , 0000 , 0000 ; 0000 
U 2625, 0104,4751,1217,4374,4007,0700,0000,0000,0001 



U 1010, 2740,4551,0202,4374,0007,0700,0000,0077,7740 
U 1011, 0303,4443,0000,4174,4007,0700,0000,0000,0000 

U 0300, 2740,4551,0202,4374,0007,0700,0000,0077,77.40 



U 030 1, 1143,3771, 0002 ,4365,5217, 0700 , 02 1 , 0000 , 0002 



U 0303, 2434,4553, 1400,4374,4007,0331 ,0010,0007,7400 
U 0307, 3611,3770,1416,4344,4007,0700,0010,0000,0000 
U 0317, 0110,3441,0301,4170,4156,4700,0200,0014,0012 



U 1540, 0762,4443,0000,4174,4467,0551,0000,0001,0010 
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3484 
3485 
3486 
3487 
3488 
3489 
3490 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 
3506 
3507 
3508 
3509 



=0 

HALT : 



=0 

JRST10: 

=0000 
JEN: 



=001 1 
JEN2 : 
=01 1 1 
= 1111 



1540: 
JFCL: 



UUO 

[PC]__[AR] 
HALT [HALT] 



UUO 
J/JEN2 

UUO 

MEM READ, 
[HR ]_MEM , 
LOAD INST EA, 
CALL [JRSTO] 

DISMISS 
CALL LOAD PI 
JUMPA 



JFCL FLAGS, 
SKIP JFCL, 
3T, 

J/JUMP- 



US-ER MODE 

EXEC MODE - -CHANGE PC 
HALT INSTRUCTION 



;DISMISS INTERRUPT 

; FLAGS 

GET INST 
LOAD XR & @ 
COMPUTE FLAGS 

DISMISS INTERRUPT 
RELOAD PI HARDWARE 
GO JUMP 



ALL DONE IN HARDWARE 

SEE IF SKIPS 

ALLOW TIME 

JUMP IF WE SHOULD 



KSIO.Mu, 1.4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
11 :07 4- JAN- 1979 



U 0320, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 0321 , 2434,4553, 1400,4374,4007,0331 ,0010,0007,7400 

U 0325, 0335,3333,0012,4174,4437,0700,0000,0000,0000 

U 0335, 1525,4223,0000,4364,4277,0700,0200,0000,0010 

U 2677 , 2712,3771, 0005 , 4365 , 5007 , 0700 4 0200 , 0000 , 0002 

U 2712, 2713,0111,0703,4174,4007,0700,0200,0004,0012 

U 2713, 2714,3771,0001,4361,5007,0700,0200,0000,0002 

U 2714, 2715,3333,0005,4174,4467,0700,0000,0001,0004 

U 2715, 0305,5551,1313,4374,4007,0700,0000,0001,0000 



U i 1 4 , 2740 , 455 1 , 0202 . 4374 , 0007 , 0700 , 0000 , 0077 ,7740 

U 1015, 0060,4521,1205,4074,4007,0700,0000,0000,0000 

U 0060 , 3670 , 3443 , 0300 ,4174, 4007 , 0700 , 02 1 O , 0003 , 00 1 2 

U 0064, 3671,0111,0703,4170,4007,0700,0210,0003,0012 

U 0065, 2677,01 1 1 ,0703,4174,4007,0700,0200,0004,0002 



U 1024, 2740,4551,0202,4374,0007,0700,0000,0077,7740 
U 1 025 , 2716, 3443 , 0300 ,4174, 4007 , 0700 , 0200 ,0003 , 00 1 2 
U 2716, 0435,4521,1203,4074,4007,0700,0000,0000,0000 
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3510 .TOC "EXTENDED ADDRESSING INSTRUCTIONS" 

3511 

3512 =0000 

3513 XJEN: UUO ; HERE IF USER MODE 

3514 DISMISS ; CLEAR HIGHEST INTERRUPT 

3515 =0101 READ [MASK], LOAD PI ; NO MORE INTERRUPTS 

3516 =1101 ABORT MEM CYCLE, ;AVOID INTERRUPT PAGE FAIL 

3517 J/XJRSTFO ; START READING FLAG WORD 

3518 = 
3519 

3520 XJRSTF: MEM READ, [BR ]_MEM ; PUT FLAGS IN BR 

3521 [AR]_[AR]+1, ; INCREMENT ADDRESS 

3522 LOAD VMA , ; PUT RESULT IN VMA 

3523 START READ ; START MEMORY 

3524 MEM READ, [PC]_MEM, ; PUT DATA IN PC 

3525 HOLD LEFT ; IGNORE SECTION NUMBER 

3526 READ [BR], LOAD FLAGS, ; LOAD NEW FLAGS 

3527 UPDATE USER ;ALSO USER FLAG 

3528 PISET: [ FLG ]_[ FLG ] . AND . NOT . # , ; CLEAR PI CYCLE 

3529 FLG. PI/1, J/PIEXIT ; RELOAD PI HARDWARE 

3530 ; INCASE THIS IS AN 

3531 ; INTERRUPT INSTRUCTION 
3532 

3533 =0 

3534 XPCW: UUO ;USER MODE 

3535 [BR]_FLAGS ; PUT FLAGS IN BR 

3536 =0*0 

3537 PIXPCW: VMA_[AR], START WRITE, ; STORE FLAGS 

3538 CALL [STOBR] ; PUT BR IN MEMORY 

3539 =1*0 VMA_[AR]+1, LOAD VMA, 

3540 START WRITE, ; PREPEARE TO STORE PC 

3541 CALL [STOPC] ; PUT PC IN MEMORY 

3542 =1*1 [AR]_[AR]M, ; DO NEW PC PART 

3543 START READ, J/XJRSTF 

3544 = 
3545 

3546 =0 

3547 SFM: UUO 

3548 VMA_[AR], START WRITE ;STORE FLAGS 

3549 [ AR ]_FLAGS , J/STORE ;STORE AND EXIT 
3550 



KS10.MC1[4,311] 

SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



D 0256, 0000,1541,1100 

U 154 1 , 1 034 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 

U 1034, 2717,3441,0302,4174,4617,0700,0000,0000,0100 

U 1035 , 1034 , 3333 , 0002 , 4 1 74 , 4 1 67 , 0700 > 0000 , 0000 , 0000 

U 2717, 0366,4713,1202,7174,4007,0700,0400,0000,0422 
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3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 



.TOC 



256: 



1541 : 

XCT: 

=0 

XCT 1 A : 



"XCT" 

. DCODE 
R , 

.UCODE 



SKIP KERNEL 

[HR]_[AR] , 
DBUS/DP, 
LOAD INST, 
PXCT/E1 , 
U/XCT1 

READ [HR] , 
LOAD PXCT, 
U/XCT1A 



J/XCT ; OPERAND FETCHED AS DATA 



;SEE IF MAY BE PXCT 

STUFF INTO HR 
PLACE ON DBUS FOR IR 
LOAD IR, AC, XR, ETC. 
ALLOW XR TO BE PREVIOUS 
CONTINUE BELOW 

LOAD PXCT FLAGS 

CONTINUE WITH NORMAL FLOW 



XCT 1 : 



WORK[YSAVE]_jHR] CLR LH,;SAVE FOR 10 INSTRUCTIONS 
U/XCT2 ;G0 EXECUTE IT 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4- JAN-1979 



D 0260, 0000,1544,2100 

D 0261, 0002,1543,3100 

D 0262, 0002,1545,2100 

D 0263, 0000,1546,2100 



U 1543, 2720,3771,0005,4365,5007,0700,0200,0000,0002 



U 2720, 1044,0551 , 1 504 , 0274 , 4407 , 03 1 1 ,0200,0003,0712 



U 1 544 , 2720 , 374 1 , O 1 05 , 4074 , 4467 , 0700 , 0000 , 0005 , 0000 



U 1044, 0220,3333,0005,4175,5003,7701,0200,0000,0002 

U 1045, 2721 ,3333,0005,4175,5007,0701 ,0200,0000,0002 

U 2721, 0220,4443,0000,4174,4463,7700,0000,0001,2000 

U 0220, 0221,3441,0301,4174,4007,0700,0200,0014,0012 

U 0221, 0100,3440,0404,0174,4156,4700,0400,0000,0000 

U 0222 , 1 400 , 3440 , 0404 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
361 1 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 



.TOC 



260: 



'STACK INSTRUCTIONS 



PUSHJ, PUSH, POP, POPJ" 



. DCODE 
I , 
IR, 
I , 
I , 

.UCODE 



B/0, 
B/2, 
B/2, 



J/PUSHJ 
J/PUSH 
j/POP 
J/POPJ 



PUSH: 



PUSH1 



; ALL START WITH E IN AR 
1543: 

MEM READ, 
[ BR ]_MEM 

[ARX 3 _AC+ 1000001 , 
INH CRY 1 8 , 
LOAD VMA, 
START WRITE, 
PXCT STACK WORD, 
3T, 

SKIP CRYO, 
J/STMAC 



1544: 
PUSHJ : 



= 

STMAC 



[BR]_PC WITH FLAGS, 
CLR FPD, 
J/PUSH 1 



PUT MEMOP IN BR 

BUMP BOTH HALVES OF AC 
NO CARRY 

START TO STORE ITEM 

START MEM CYCLE 

THIS IS THE STACK DATA WORD 

ALLOW TIME 

GO TO STMAC, SKIP IF PDL OV 



COMPUTE UPDATED FLAGS 
CLEAR FIRST-PART-DONE 
AND JOIN PUSH CODE 



MEM WRITE, 
MEM__[ BR ] , 
B DISP, 
J/JSTAC 
;WE MUST STORE THE STACK 
; PAGE FAIL. 

MEM WRITE, 
MEM_[ BR 3 
SETPDL: SET PDL OV, 
B DISP, 
J/JSTAC 



=00 
JSTAC: 



JSTAC1 : 



[PC3_[AR3 , 
LOAD VMA, 
FETCH 
AC_[ARX3 , 
NEXT INST 
AC__[ARX3 , 
J/DONE 



WAIT FOR MEMORY 
STORE BR ON STACK 
SEE IF PUSH OR PUSHJ 
BELOW 

WORD PRIOR TO SETTING PDL OV IN CASE OF 



WAIT FOR MEMORY 
STORE BR 
OVERFLOW 

SEE IF PUSH OR PUSHJ 
BELOW 



PUSHJ- - LOAD PC 

LOAD ADDRESS 

GET NEXT INST 

STORE BACK STACK PTR 

DO NEXT INST 

UPDATE STACK POINTER 

DO NEXT INST 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE . MIC [ 4 , 3 1 1 ] 1 1 :07 4~ JAN- 1979 



U 1545, 2722,3771 ,0004,0276,6007,0701 ,0200,0004,0712 

U 2722, 2723,3771,0005,4365,5007,0700,0200,0000,0002 

U 2723, 1 144,0551 , 0404 , 4374 , 4407 , 03 1 1 ,0000,0077,7777 

U 1144, 2725,3443,0300,4174,4007,0700,0200,0003,0312 

U 1145, 2724 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 

U 2724, 0220,3333,0005,4175,5003,7701,0200,0000,0002 

U 2725, 2721 ,3333,0005,4175,5007,0701 ,0200,0000,0002 

U 1546, 2726,3771,0004,0276,6007,0701,0200,0004,0712 

U 2726, 1 146,0551 ,0404,4374,4407,031 1 ,0000,0077,7777 

U 1 146, 1 147,4443,0000,4174,4467,0700,0000,0001 ,2000 



U 1147, 0221,3771,0001,4361,5007,0700,0200,0000,0002 
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3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
1 3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 



1545: 
POP: 



P0PX1 : 



1546: 
POPJ : 



=0 



[ARX]_AC, 
LOAD VMA, 
START READ, 3T , 
PXCT STACK WORD 

MEM READ, 
[BR-]_MEM 

[ARX]_[ARX]+#, 
#/777777, 
INH CRY 1 8 , 3T, 
SKIP CRYO 

VMA_[AR] , 
PXCT DATA, 
START WRITE, 
J/P0PX1 

VMA__[ AR ] , 
PXCT DATA, 
START WRITE 

MEM WRITE, 
MEM_[BR], 
B DISP, 
J/JSTAC 



MEM WRITE, 
MEM_[ BR ] , 
J/SETPDL 



[ARX3_AC, 
LOAD VMA, 

PXCT STACK WORD, 3T , 
START READ 

[ARX3__[ARX3+#, 

#/777777, 

INH CRY 18, 3T, 

SKIP CRYO 

SET PDL OV 

MEM READ, [PC}_MEM, 

HOLD LEFT, 

J/JSTAC 1 



GET POINTER 

ADDRESS OF STACK WORD 

START CYCLE 

FOR PXCT 

; LOAD BR (QUIT IF PAGE FAIL) 
; STACK WORD TO BR 

UPDATE POINTER 
-1 IN EACH HALF 
BUT NO CARRY 
SEE IF OVERFLOW 

EFFECTIVE ADDRESS 
FOR PXCT 

WHERE TO STORE RESULT 
OVERFLOW 

EFFECTIVE ADDRESS 
FOR PXCT 

WHERE TO STORE RESULT 

WAIT FOR MEM 
STORE BR 
POP OR POPJ? 
STORE POINTER 



WAIT FOR MEMORY 

STORE BR 

GO SET PDL OV 



GET POINTER 
POINT TO STACK WORD 
FOR PXCT 
START READ 
UPDATE POINTER 
-1 IN BOTH HALFS 
INHIBIT CARRY 18 
SEE IF OVERFLOW 
SET OVERFLOW 
STICK DATA IN PC 
NO FLAGS 
STORE POINTER 



KS10.MCTL4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979. 



D 0105, 0000,1551,3000 

U 1551, 2727 , 3770 , 0303 , 4344 , 0007 , 0700 , 0000 , 0000 , 0000 

U 2727, 1 150,3771 , 0005 , 0276 , 6007 , 052 1 , 0000, 0000, 0000 

U 1 150, 1 152,01 13,0503,0174,4407,0521 ,0400,0000,0000 

U 1151, 1 154,01 13,0503,0174,4407,0521 ,0400,0000,0000 

U 1152, 0100,4443,0000,4174,4156,4700,0000,0000,0000 

U 1153, 0555,4443,0000,4174,4467,0700,0000,0001,2000 



U 1154, 0555,4443,0000,4174,4467,0700,0000,0001,2000 
U 1155, 0100,4443,0000,4174,4156,4700,0000,0000,0000 
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3670 . TOC 

3671 

3672 

3673 105: 

3674 

3675 

3676 1551: 

3677 ADJSP: 
3678 

3679 
3680 
3681 

3682 =0 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 =0 

3694 ADJSP 1: 
3695 

3696 
3697 

3698 =0 

3699 ADJSP2: 
3700 

3701 
3702 



"STACK INSTRUCTIONS 
. DCODE 

I-PF, B/0, 
.UCODE 



C AR ]_[ AR ] SWAP , 
HOLD RIGHT 
[BR]_AC, 
3T, 

SKIP DPO 
AC_[BR]+[AR] , 
INH CRY 1 8 , 
SKIP DPO, 
3T, 

J/ ADJSP 1 
AC_[BR]+[AR] , 
INH CRY 1 8 , 
SKIP DPO, 
3T, 

J/ADJSP2 



NEXT INST 
SET PDL OV, 
J/NIDISP 



SET PDL OV, 
J/NIDISP 
NEXT INST 
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- ADJSP" 
J/ADJSP 

; MAKE 2 COPIES OF RH 
; R E AD AC, SEE IF MINUS 



UPDATE AC 

NO CARRY 

SEE IF STILL OK 

ALLOW TIME 

TEST FOR OFLO 

UPDATE AC 

NO CARRY 

SEE IF STILL MINUS 
ALLOW TIME FOR SKIP 
CONTINUE BELOW 



NO OVERFLOW 

SET PDL OV 

GO DO NICOND DISP 



SET PDL OV 

GO DO NICOND DISP 

NO OVERFLOW 



; KS10.MC1[4,311] MICRO 31(254) 

; SIMPLE. MIC[4, 311] 11:07 4- JAN- 1979 



D 0264, 0000,1552,2100 

D 0265, 0000,1550,2100 

D 0266, 0000,1554,2100 

D 0267, 0000,1555,2100 



U 1550, 2730,3741,0105,4074,4007,0700,0000,0000,0000 

U 2730, 0764,3440,0505,0174,4467,0700,0400,0005,0000 

U 1552, 2731,3741,O1O5,4074,4467,O7OO,OOO0;OO05,OOOO 

U 2731, 2732,3443,0300,4174,4007,0700,0200,0003,0012 

U 2732 , 2733 , 3333 , 0005 ,4175, 5007 , 070 1 , 0200 , OOOO, 0002 

U 2733, 0107,0551,0301,4370,4007,0701,0000,0000,0001 

U 1554, 2734,3441,0305,4174,4007,0700,0200,0003,0002 

U 2734, 0130,3770,0304,4344,4007,0700,0000,0000,0000 

U 01 30 , 3076 , 377 1 , 0003 ,0276 , 6007 , 0700 , 00 10 , 0000 , 0000 

U O 1 34 , 3672 , 344 1 , 104 , 4 1 70 , 4007 , 0700 , 00 1 O , 0000 , 0000 

U 0135, 0107,0551,0501,4370,4007,0701,0000,0000,0001 



U 1555, 2735,3771,0005,0276,6007,0700,0000,0000,0000 
U 2735 , 2736 , 3770 , 0505 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2736, 2737,3443,0500,4174,4007,0700,0200,0004,0012 



U 2737, 



0274 , 377 1 , 0005 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 
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3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
371 1 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 



.TOC 



264: 



1550: 
JSP: 



1552: 
JSR: 



'SUBROUTINE CALL/RETURN 



JSR, JSP, JSA, JRA" 



1554: 
JSA: 



=0*0 
= 1*0 

= 1*1 



1555: 
JRA : 



. DCODE 
I , 
I , 
I , 
I , 

.UCODE 



J/JSR 
J/JSP 
J/JSA 
J/JRA 



[BR]__PC WITH FLAGS 
CLR FPD, 
AC_[BR] , 
J/JUMPA 



[BR]_PC WITH FLAGS, 

CLR FPD 

VMA_[AR] , 

START WRITE 

MEM WRITE, 

MEM_[BR] 

[PC]_EAR]+1000001 , 

HOLD LEFT, 

3T, 

J/START 



[BR]_[AR], 

START WRITE 
[ARX]_[AR] SWAP 
[AR]_AC, 
CALL [IBPX] 
[ARX]_[PC] , 
HOLD LEFT, 
CALL [AC_ARX] 
[PC]_[BR]+1000001 , 
3T, 

HOLD LEFT, 
J/START 



[BR]_AC 

[BR]_[BR3 SWAP 
VMA_[BR3 , 
START READ 
MEM READ, 
[BR 3_MEM , 
J/JMPA 



GET PC WITH FLAGS 
CLEAR FIRST-PART-DONE 
STORE FLAGS 
GO JUMP 



GET PC WITH FLAGS 
CLEAR FIRST-PART-DONE 
EFFECTIVE ADDRESS 
STORE OLD PC WORD 
WAIT FOR MEMORY 
STORE 
PC _ E+1 
NO JUNK IN LEFT 
ALLOW TIME FOR DBM 
START AT E+1 



SAVE E 

START TO STORE 
ARX LEFT _ E 
GET OLD AC 
SAVE AR IN MEMORY 
ARX NOW HAS E , , PC 

GO PUT ARX IN AC 

NEW PC 

ALLOW TIME 

NO JUNK IN PC LEFT 

START AT E+1 



GET AC 

OLD E IN BR RIGHT 
LOAD VMA 
FETCH SAVED AC 
WAIT FOR MEMORY 
LOAD BR WITH SAVE AC 
GO JUMP 



KS10.MC1[4,311 j 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 
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DON DOSSA 



Page 104 











3755 


.TOC "ILLEGAL INSTRUCTIONS AND UUO'S" 












3756 


; LUUO ' S TRAP TO CURRENT 


CONTEXT 












3757 
















3758 


. DCODE 






U 


0030 , 


0000,1557,2100 


3759 


030 : I , B/0 , 


J/LUUO 




n 
U 


UUo 1 , 


0001 , 


1557,2100 


3760 


T D / A 
I , B/ 1 , 


J/ LUUO 




U 




0002,1557,2100 


376 1 


I , B/2 , 


J/LUUO 




D 


0033 , 


0003,1557,2100 


3762 


I , B/ 3 , 


J/LUUO 




U 


OOo4 , 


0004, 1557,2100 


3763 


I , B/ 4 , 


J/LUUO 




D 


0035 , 


0005,1557,2100 


3764 


T r>/|- 

I , B/5 , 


J/LUUO 




D 


0036 , 


0006, 1557, 2100 


3765 


I , B/6 , 


J/LUUO 




D 


0037 , 


0007, 1557,2100 


3766 


I, B/7, 


J/LUUO 












3767 
















3768 


;M0NIT0R UUO'S TRAP 


TO EXEC 












3769 








D 


0040, 


0000, 


1556,2100 


3770 


040 : I , 


J/MUUO ; CALL 


D 


004 1 , 


0000, 


1556,2100 


377 1 


1 ' 


J/MUUO 


INIT 


D 


0042 , 


0000, 


1 556 , 2 100 


3772 


I , 


J/MUUO 




D 


0043 , 


0000, 


1556 , 2 100 


3773 


I , 


J/MUUO 




D 


0044 , 


0000, 


1 556 , 2 100 


3774 


1 ' 


1 /Bill II 1 (~\ 

J/MUUO 




D 


0045 , 


0000, 


1 556 , 2 100 


3775 


1 ' 


J/MUUO 




U 




0000, 


1 556 , 2 100 


3776 


1 ' 


J/MUUO 




U 


UU4 / , 


0000 , 


1 556 , 2 1 OO 


37 77 




0/ IvIUUU 


CALL I 


u 


UUDU , 


0000 , 


i bob | 2 1 UU 


0770 


1 ' 


J/MUUO 


OPEN 


U 


UUO 1 , 


0000 , 


1 boo , 1 1uO 


077Q 


1 ' 


J/MUUO 


TTCALL 


U 


UUOz , 


0000 , 


J CCA O 4 /"N/"* 

1 boo , 2 lOO 


3780 


1 ' 


J/MUUO 




D 


0053 , 


0000 , 


1 bbo , 2 iOu 


378 1 


I , 


1 / ftxi 11 in 

J/MUUO 




D 


0054 , 


0000, 


1556,2100 


3782 


1 ' 


1 / hti 11 irt 

J/MUUO 




D 


0055 , 


0000, 


1556,2100 


3783 


1 ' 


1 / mi 11 1 n 
J/ MUUU 


RENAME 


D 


0056 , 


0000, 


1556,2100 


3784 


I , 


1 / AMI II 1 f~\ 

J/MUUO 


IN 


D 


0057 , 


oooo, 


1555,2100 


3785 


1 ' 


1 / km 11 i/"! 

J/MUUO 


OUT 


D 


0060 , 


0000, 


1556,2100 


3786 


1 > 


. 1 /mi 11 in 
U/ |V|UUU 


CCTCTC 
bt I b 1 b 


D 


006 1 , 


0000, 


1556,2100 


3787 


1 ' 


J/MUUO 


STATO 


D 


0062 , 


oooo, 


1556,2100 


3788 


1 * 


J/MUUO 


GETSTS 


D 


0063 , 


0000, 


1556,2100 


3789 


1 ' 


J/MUUO 


STATZ 


u 




oooo, 


1556,2100 


/ yu 


1 ' 


J/MUUO 


INBUF 


U 


uuoo , 


oooo, 


1556,2100 


3791 


* ' 


J/MUUO 


OUTBUF 


n 
U 


UUoo , 


oooo, 


1556,2100 


O "7 O O 




J/MUUO 


INPUT 


n 
u 


UUO / , 


oooo, 


1556,2100 


/ y 




J/MUUO 


OUTPUT 


D 


0070, 


oooo, 


1556,2100 


3794 




J/MUUO 


CLOSE 


D 


0071 , 


oooo, 


1556,2100 


3795 




J/MUUO 


RELEAS 


D 


0072, 


oooo, 


1556,2100 


3796 


1 ' 


J/MUUO 


MTAPE 


U 


UU / O , 


oooo, 


1556,2100 


" 3797 


1 ' 


J/MUUO 


UGETF 


U 


UU / 4 , 


oooo, 


1556,2100 


3798 


I , 


J/MUUO 


USETI 


U 


UU / O , 


oooo, 


1556,2100 


3799 


1 ' 


J/MUUO 


USETO 


U 


UU /O , 


oooo, 


1556,2100 


3800 


1 ' 


J/MUUO 


LOOKUP 


D 


0077 , 


oooo, 


1556,2100 


380 1 

3803 
3804 


EXPANSION OPCODES 


J/MUUO 


ENTER 


D 


0100, 


0000,1556,2100 


3805 


100: I, 


J/UUO 


UJEN 


D 


0101 , 


0000, 1661 ,2100 


3806 


I , 


J/UU0101 




D 


0102, 


0000,1662,2100 


3807 


I , 


J/UUO 102 




D 


0103, 


0000,1663,2100 


3808 


I , 


J/UUO 103 












3809 









KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



D OOOO, 0000,1556,2100 

D 0104, 0000,1664,2100 

D 0106, 0000,1666,2100 

D 0107, 0000,1667,2100 

D 0130, 0000,1660,2100 

D 0131 , 0001 , 1660,2100 

D 0141, 0002,1660,2100 

D 0151 , 0003, 1660,2100 

D 0161, 0004,1660,2100 

D 0171, 0005,1660,2100 

D 0247, 0000,1665,2100 



U 1661,. 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1662, 2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 1 663 , 2740 , 455 1 , 0202 , 4374 , 0007 ,0700 , 0000 , 0077 , 7740 

U 1664, 2740,4551 , 0202 , 4374 , 0007 , 0700 , 0000, 0077 , 7740 

U 1 666 , 2740 , 455 1 , 0202 , 4374 , 0007 ,0700 , 0000 , 0077 ,7740 

U 1667, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1660, 2740,4551,0202,4374,0007,0700,0000,0077,7740 

U 1665, 2740 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
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; 3810 -RESERVED OPCODES 
; 3811 



38 12 


000 


I , 




J/UUO 




3813 


104 


I , 




J/JSYS 


JSYS 


3814 


106 


I , 




J/UUO 106 




3815 




I , 




J/UUO 107 




3816 


130 


I , 


B/0, 


J/FP-LONG 


UFA 


3817 




I , 


B/1, 


J/FP-LONG 


DFN 


3818 


141 


* I , 


B/2, 


J/FP-LONG 


FADL 


3819 


151 


I , 


B/3, 


J/FP-LONG 


FSBL 


3820 


161 


. I , 


B/4, 


J/FP-LONG 


FMPL 


3821 


171 


I , 


B/5, 


J/FP-LONG 


FDVL 


3822 


247 


I , 




J/UU0247 


RESERVED 


3823 




. UCODE 









3824 



3825 


1661 : 




3826 


UU0101 : 


UUO 


3827 


1662 : 




3828 


UUO 102 : 


UUO 


3829 


1663: 




3830 


UU0103: 


UUO 


3831 


1664: 




3832 


JSYS: 


UUO 


3833 


1666: 




3834 


UUO 106: 


UUO 


3835 


1667: 




3836 


UUO 107: 


UUO 


3837 


1660: 




3838 


FP-LONG 


:UUO 


3839 


1665: 




3840 


UU0247: 


UUO 



3841 



o 

; KS 10. Mui [4,311] 
; SIMPLE. MIC[4,31 1 ] 





u 


1556, 


2740,4551 ,0202 




u 


2740, 


1 156,4751 , 1204 




u 


1 156, 


1511,0111,1 104 




u 


1 157, 


1 160,3333,0010 


z 

t- 
Q 


u 


1 160, 


0310,3333,0004 




u 


1 161 , 


1 162,3770,0203 


Printer. PKC 


u 


1 162, 


2746,4521 , 1203 




u 


1 163, 


0314,3333,0004 




u 


0314, 


2747,3333,0003 




u 


0316, 


0020,3333,0001 


I 


u 


0020, 


2747,4221 ,0002 


:ed on Advancec 


u 


0022, 


3542,3333,0002 




u 


0023, 


3670,01 1 1 ,0704 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



, 4374 , 0007 , 0700 , 0000 , 0077 ,7740 
, 4374 , 4007 , 0700 , 0000 , 0000 , 0424 

,4174, 4007 , 0700 , 0010 , 0000 , 0000 
,4174, 4007 , 0520 , 0000 , 0000 , 0000 

,4174,4007,0700,0200,0021 ,1016 
, 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

, 4074 , 0007 , 0700 , 00 1 , 0000 , 0000 

,4174,4007,0700,0200,0021 ,1016 
, 4175, 5007,0701 ,0210,0000,0002 
,4175, 5007 , 070 1 , 0200 , 0000 , 0002 
,4174, 0007 , 0700 , 00 1 , 0000 , 0000 

,4175, 5007 , 070 1 , 02 1 , 0000 , 0002 
,4170,4007,0700,0210,0023, 1016 
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3842 


; HERE 


FOR UUO'S WHICH TRAP TO EXEC 


3843 


1556: 






3844 


UUO: 


;THIS TAG IS USED FOR ILLEGAL THINGS WHICH DO UUO TRAPS 


3845 


MUUO: 


;THIS TAG IS USED FOR MONITOR CALL INSTRUCTIONS 


3846 




[HR] [HR ] . AND . # , 


MASK OUT @> AND XR 


3847 




#/777740, 


MASK 


3848 




HOLD RIGHT 


KEEP RIGHT 


3849 


; THE UUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO UUOGO 


3850 


UUOGO : 


[ARX]_0 XWD [424] 


HERE FROM UUO MACRO 


3851 






GET OFFSET TO UPT 


3852 


=0 


[ ARX] [ARX]+[UBR] , 


ADDRESS OF MUUO WORD 


3853 




CALL [ABORT] 


STOP MEMORY 


3854 




READ [EBR], 


KL PAGING 


3855 




SKIP DPO 


?? 


3856 


=0 


READ [ARX], 


GET THE ADDRESS 


3357 




LOAD VMA, 


START WRITE 


3858 




VMA PHYSICAL WRITE, 


ABSOLUTE ADDRESS 


3859 




d/KIWIUUO 


GO STORE KI STYLE 


3860 




[AR] [HR] ' SWAP 


PUT IN RIGHT HALF 


3861 


=0 


[AR] FLAGS, 


FLAGS IN LEFT HALF 


3862 




HOLD RIGHT, 


JUST WANT FLAGS 


3863 




CALL [UUOFLG] 


CLEAR TRAP FLAGS 


3864 




READ [ARX], 


LOOK AT ADDRESS 


3865 




LOAD VMA, 


LOAD THE VMA 


3866 




VMA PHYSICAL WRITE 


STORE FLAG WORD 


3867 


=0* 


MEM WRITE, 


WAIT FOR MEMORY 


3868 




MEM [AR], CALL [NEXT] 


STORE 


3869 




MEM WRITE, 


WAIT FOR MEMORY 


3870 




MEM [PC] 


STORE FULL WORD PC 


3871 


=000 


[HR] 0, 


SAVE E 


3872 




HOLD RIGHT, CALL [NEXT] 


BUT CLEAR OPCODE 


3873 


=010 






3874 


UUOPCW 


: MEM WRITE, 


WAIT FOR MEMORY 


3875 




MEM__[ HR ] , 


STORE INSTRUCTION IN KI 


3876 






OR FULL WORD E IN KL 


3877 




CALL [GETPCW] 


GET PROCESS-CONTEXT-WORD 


3878 








3879 


=01 1 


NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD 


3880 




CALL [STOBR] 


STORE PROCESS CONTEXT WORD 


3881 









KS10.MC1[4,31t] MICRO 31(254) 

SIMPLE. MIC[4, 311] 11:07 4-JAN-1979 



U 0027, 2741,4751,1205,4374,4007,0700,0000,0000,0430 

U 2741, 2742,0111,1105,4174,4007,0700,0000,0000,0000 

U 2742, 2743,4521 , 1203,4074,4007,0700,0000,0000,0000 

U 2743 , 1164,4553, 0300 , 4374 , 4007 , 032 1 , 0000 ,0000 , 0600 

U 1164, 1165,3551, 0505 , 4370 , 4007 , 0700 , 0000 , 0000 , 000 1 

U 1165, 1 1 66 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 000 1 , 0000 

U 1 166, 1 167,3551 ,0505,4370,4007,0700,0000,0000,0004 



U 1 167, 2744,3333,0005,4174,4007,0700,0200,0024, 1016 
U 2744, 2745,3771, 0003 ,4365 ,5007 , 0700 , 0200 , 0000 , 0002 

U 2745, 0764,3333,0003,4174,4467,0700,0000,0000,0404 



U 03 10 , 2747 , 3333 , 0002 ,4175, 5007 ,070 1 , 02 10 , 0000 , 0002 

U 03 1 2 , 2746 , 374 1 , O 1 03 , 4074 , 4007 , 0700 , 00 10 , 0000 , 0000 

U 0313, 0022,3333,0003,4175,5007,0701,0200,0000,0002 

U 2746, 0001,5551,0303,4374,0004,1700,0000,0000,0600 

U 2747, 0002,0111,0704,4170,4004,1700,0200,0023,1016 
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3882 


;NOW WE 


MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS 


3883 


= 111 


[BR]_0 XWD [430] 


OFFSET INTO UPT 


3884 








3885 




[BR] [BR]+[UBR] 


ADDRESS OF WORD 


3886 




[AR] FLAGS 


GET FLAGS 


3887 




TL [AR], 


LOOK AT FLAGS 


3888 




#/600 


TRAP SET? 


3889 


=0 


[BR ] [BR] . OR . # , 


YES- -POINT TO TRAP CASE 


3890 




#/l , 




389 1 




HOLD LEFT 


LEAVE LEFT ALONE 


3892 




TL [AR], 


USER OR EXEC 


3893 




#/ 10000 




3894 


=0 


[BR] [BR].OR.#, 


USER 


3895 




#/4 , 


POINT TO USER WORDS 


3896 




HOLD LEFT 




3897 




READ [BR], 


LOOK AT ADDRESS 


3898 




LOAD VMA, 


PLACE IN VMA 


3899 




VMA PHYSICAL, 


PHYSICAL ADDRESS 


3900 




siART READ 


GET NEW PC WORD 


3901 


GOEXEC : 


MEM READ, 


WAIT FOR DATA 


3902 




[AR] MEM 


STICK IN AR 


3903 




READ [AR], 


LOOK AT DATA 


3904 




LOAb FLAGS, 


LOAD NEW FLAGS 


3905 




LEAVE USER, 


ALLOW USER TO LOAD 


3906 




LOAD PCU, 


SET PCU FROM USER 


3907 




J/UUMPA 


JUMP 


3908 








3909 








3910 


; HERE FOR TOPS- 10 STYLE PAGING 




391 1 








3912 


=00 






3913 


KIMUUO: 


MEM WRITE, 


STORE INSTRUCTION 


3914 




MEM [HR], CALL [NEXT] 


IN MEMORY 


3915 


= 10 


[AR] PC WITH FLAGS, 


GET PC WORD 


3916 




CALL [UUOFLG] 


CLEAR TRAP FLAGS 


3917 


= 11 


MEM WRITE, 


STORE PC WORD 


39 18 




MEM [AR], 




39 19 




J/UUOPCW 


GO STORE PROCESS CONTEXT 


3920 








3921 


UUOFLG: 


[AR] [AR] . AND . NOT . ft , 


CLEAR TRAP FLAGS 


3922 




#/600, HOLD RIGHT, 


IN WORD TO SAVE 


3923 




RETURN [1] 


BACK TO CALLER 


3924 








3925 


NEXT: 


NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD 


3926 




RETURN [2] 




3927 









KS10.MC1 [4,31 1 ] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 0400, 2750,3333,0003,4174,4007,0700,0200,0003,0012 

U 2750, 2751 ,4551 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 2751, 2752,3333,0002,4175,5007,0701,0200,0000,0002 



U 2752, 2503,0111,0703,4170,4007,0700,0200,0004,0012 



KS10 MICROCODE V123, 1 MARCH, 1 





ILLEGAL INSTRUCTIONS AND 


3928 


; HERE 


FOR LUUO'S 


3929 


1557 : 




3930 


LUUO: 


[AR] XWD [40] 


3931 


; THE- 


LUUO MACRO DOES THE 


3932 


400: 




3933 


LUU0 1 


: READ [AR], 


,3934 




LOAD VMA, 


3935 




START WRITE 


3936 




[HR ] [HR ] . AND . # , 


3937 




#/777740, 


3938 




HOLD RIGHT 


3939 




MEM WRITE, 


3940 




MEM [HR] 


3941 




VMA [AR]+1, 


3942 




LOAD VMA , 


3943 




START READ, 


3944 




J/C0NT1 


3945 
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; AR GET CONSTANT 40 
ABOVE INSTRUCTION AND GOES TO LUUO 1 
FOR SIMULATOR 
LOAD 40 INTO 
THE VMA AND 
PREPARE TO STORE 
CLEAR OUT INDEX AND @ 



; STORE LUUO IN 40 

;POINT TO 41 
;PUT 41 IN VMA 
; START FETCH 

;G0 EXECUTE THE INSTRUCTION 



KS10.MC1[4,31 1 ] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4 -.JAN- 1979 



D 0270, 1015, 1560, 1 100 

D Q271, 0015,1560,3000 

0272, 0016,1560,1700 

D 0273, 0017,1560,1700 



U 1 560 , 1 500 , 055 1 , 0303 , 0274 , 4463 , 770 1 , 0200 , 000 1 , 000 1 



D 0274, 1015, 1561 , 1 100 

D 0275, 0015,1561,3000 

D 0276, 0016, 1561 , 1700 

D 0277, 0O17, 1561 , 1700 



U 1561 , 1500,2551 ,0303,0274,4463,7701 ,4200,0001 ,0001 
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3946 .TOC 

3947 

3948 

3949 270: 

3950 

3951 

3952 

3953 

3954 

3955 1560 

3956 ADD: 
3957 

3958 
3959 
3960 
3961 
3962 

3963 274: 

3964 

3965 

3966 

3967 

3968 

3969 1561 

3970 SUB: 
3971 

3972 
3973 
3974 



ARITHMETIC ADD, SUB" 



. DCODE 






R-PF, 


AC, 


J/ ADD 


I-PF, 


AC, 


J/ ADD 


RW, 


M, 


J/ ADD 


RW, 


B, 


J/ ADD 


.UCODE 







[AR]_[AR3+AC, 

AD FLAGS EXIT, 3T 



DO THE ADD 
UPDATE CARRY FLAGS 
STORE ANSWER 
MISSES 3-TICKS BY 3 



NS. 



.DCODE 






R-PF, 


AC, 


J/SUB 


I-PF , 


AC, 


J/SUB 


RW, 


M, 


J/SUB 


RW, 


B, 


J/SUB 


.UCODE 







[AR]_AC-[AR] , 

AD FLAGS EXIT, 3T 



DO THE SUBTRACT 
UPDATE PC CARRY FLAGS 
ALL DONE 

MISSES 3-TICKS BY 3 NS . 



KS10.MC1 [4,311 ] MICRO 31(254) 

SIMPLE. MIC [4, 31 1 ] 1 1 : 07 . 4 - JAN- 1 979 



D 0114, 0205, 1457, 1100 
D 01 15, 0205, 1615, 1 100 



U 1457, 1 170,0551 ,0404, 1274,4007,0562,0000,0000, 1441 



U 1 170, 2754,0551 ,0303,0274,4467,0702,4000,0001 ,0001 
U 1171, 2753,7441 , 1205,4174,4007,0700,0000,0000,0000 

U 2753, 11 70, 3111, 0503 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1615, 1172,2551 ,0404, 1274,4007,0562,4000,0000, 1441 

U 1172, 2754,2551,0303,0274,4467,0702,0000,0001,0001 

U 1173, 2754,2551,0303,0274,4467,0702,4000,0001,0001 

U 2754 , 1 1 74 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 

U 1 174, 1404,4551 ,0404,4374,0007,0700,0000,0037,7777 

U 1 175, 1404,3551 ,0404,4374,0007,0700,0000,0040,0000 



d lit* 
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3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3983 
3984 
3985 
3986 
3987 
3988 
3989 
3990 
3991 
3992 
3993 
3994 
3995 
3996 
3997 
3998 
3999 
4000 
4001 
4002 
4003 
4004 
4005 
4006 
4007 



.TOC 
1 14 : 



1457: 
DADD: 

=0 

DADD 1 : 



1615: 
DSUB: 



"ARITHMETIC 
. DCODE 

DBL R, DAC, 
DBL R, DAC, 
.UCODE 



DADD, DSUB" 



J/DADD 
J/DSUB 



[ARX]_[ARX]+AC[ 1 ] , 4T, 
SKIP CRY 1 

[AR]_[AR]+AC, 

ADD .25, 

AD FLAGS, 4T, 

J/CPYSGN 

[BR]_.NOT. [MASK] 

[ AR ]__[ AR ] .OR. [BR] , 

HOLD LEFT, J/DADD 1 



[ARX]_AC[ 1 ]-[ARX] , 4T, 
SKIP CRY 1 
[AR]_AC-[AR]-.25, 
AD FLAGS, 4T, 
J/CPYSGN 

[AR]_AC-[AR] , 4T, 
Ad, FLAGS 



; ADD LOW WORDS 

;SEE IF CARRY TO HIGH WORD 

ADD HIGH WORDS 

ADD IN ANY CARRY FROM LOW WORD 

UPDATE PC FLAGS 

COPY SIGN TO LOW WORD 

SET BITS 35 AND 36 IN 

AR SO THAT ADD .25 WILL 

ADD 1 . 



SUBTRACT LOW WORD 
SEE IF CARRY 
NO CARRY 
UPDATE PC FLAGS 
GO COPY SIGN 
THERE WAS A CARRY 
UPDATE CARRY FLAGS 



CPYSGN: FIX [AR] SIGN, SKIP DPO 

=0 [ ARX]__[ARX] . AND . # , #/377777, HOLD RIGHT, J/MOVE 

[ARX]_[ARX] .0R.#, #/400000, HOLD RIGHT, J/MOVE 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 3 1 1 : 07 4- JAN- 1 979 



D 0220, 1015, 1641 , 1 100 

D 0221, 0015,1641,3000 

D 0222, 0016, 1641 , 1700 

D 0223, 0017,1641,1700 



U 1641 , 2755,3441 ,0306,0174,4007,0700,0000,0000,0000 

U 2755, 0021,3772,0000,0275,5007,0700,2000,0071,0043 

U 0021 , 3001 ,3446,0606,4174,4007,0700,0010,0000,0000 

U 0025, 1 176,3333,0004,4174,4007,0621 ,0000,0000,0000 

U 1176, 2756 , 3445 , 0404 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1177, 1500,3221,0003,4174,4003,7700,0200,0003,0001 



U 2756, 1200,51 13,0412,4174,4007,0621 ,0000,0000,0000 

U 1200, 1202,3770,0404,4174,0007,0520,0000,0000,0000 

U 1 20 1 , 1 500 , 700 1 , 0003 ,4174, 4003 , 7 700 , 0200 ♦ 0003 , 000 1 

U 1202, 1404,3221 ,0003,4174,4467,0700,0000,0041 , 1000 

U 1203, 1404,7001 ,0003,4174,4467,0700,0000,0041 , 1000 



D 0224, 1005, 1571, 1100 

D 0225, 0005,1571,3000 

0226, 0016,1571,1700 

D 0227, 0006,1571,1700 



U 1571, 2757,3442,0300,0174,4007,0700,0000,0000,0000 

U 2757, 2760,3441,0316,4174,4007,0700,0000,0000,0000 

U 2760, 0031,3771,0006,0276,6007,0700,2000,0071,0043 

U 0031 , 3001 ,3446,0606,4174,4007,0700,0010,0000,0000. 

U 0035 , 2761,3445, 0403 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 276 1 , 1 204 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 

U 1204, 1500,4001,0004,4174,4003,7700,0200,0003,0001 

U 1205, 1206, 41 13,0616,4174 ,4007,0520,0000,0000,0000 

U 1 206 , 1 500 , 700 1 , 0004 ,4174, 4003 , 7700 ,0200 , 0003 ,000 1 

U 1207, 1404,7001 ,0004,4174,4467,0700,0000,0041 , 1000 
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4008 
4009 
4010 
401 1 
4012 
4013 
4014 
4015 
4016 
4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 
4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4038 
4039 
4040 
4041 
4042 
4043 
4044 
4045 
4046 
4047 
4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 



.TOC 



"ARITHMETIC 



MUL, IMUL " 



220: 



1641 : 
IMUL: 

=0** 



=0 

IMUL 1 : 
IMUL2: 
= 



=0 

IMUL3: 



. DCODE 






R-PF , 


AC, 


J/IMUL 


I-PF, 


AC, 


J/IMUL 


RW, 


M, 


J/IMUL 


RW, 


B , 


J/IMUL 


.UCODE 







[BRX]_[AR], AC 

0_AC, SC__35. 

[BRX]_[BRX]*.5 LONG, 

CALL [MULSUB] 

READ [ARX] , SKIP AD.EQ.O 

[ARX]_[ARX]*2, J/IMUL2 

[ A R ] _Q , EXIT 

[MASK 3 - AND . NOT . [ARX3 , 

SKIP AD.EQ.O 

FIX [ ARX 3 SIGN, 

SKIP DPO, J/IMUL3 

CAR ] [MAG1.EQV.Q, EXIT 



COPY C(E) 

GET THE AC 

SHIFT RIGHT 

MULTIPLY 

;SEE IF FITS 

NOT ZERO- -SHIFT LEFT 

POSITIVE 

SEE IF ALL SIGN BITS 

NOT ALL SIGN BITS 
GIVE + OR - OVERFLOW 
NEGATIVE 



[AR3_0, SET AROV, J/MOVE 

[ AR 3 [ MAG ] . EQV . , SET AROV, J/MOVE 



.DCODE 
224: R-PF, 
I-PF, 
RW, 
RW, 

.UCODE 



DAC, 
DAC, 
M, 

DBL B, 



J/MUL 
J/MUL 
J/MUL 
J/MUL 



1571 : 
MUL : 



0_[AR], AC 
[T0]_[AR3 
[BRX3_AC, SC_35. 
[BRX3_[BRX3*.5 LONG, 
CALL E MULSUB 3 
[AR3_[ARX3*2 
FIX [ AR 3 SIGN, SKIP DPO 
[ARX3_[MAG3 . AND . Q , 
EXIT 

[T03 . AND. [BRX3 , SKIP DPO ; TR I ED TO SQUARE 
[ARX3_[MAG3 .EQV.Q, EXIT ;N0 
[ARX3_[MAG3 - EQV.Q, ; YES 

SET AROV, J/MOVE 



COPY C(E) 

SAVE FOR OVERFLOW TEST 
GET THE AC 
SHIFT OVER 
MULTIPLY 
SHIFT OVER 
SEE IF NEGATIVE 
POSITIVE 



1B0? 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



D 0116, 0205, 1566, 1 100 



U 1566, 2762,3447,0303,4174,4007,0700,0000,0000,0000 
U 2762, 2763,4117,0004,4174,4007,0700,0000,0000,0000 

U 2763, 0120,3441,0405,4174,4007,0350,0000,0000,0000 



U 0120, 2775,4557,0006,1274,4007,0701,0010,0000,1441 

U 0121, 2765,4557,0004,1274,4007,0701,0000,0000,1442 
U 0124, 0171,3223,0000,1174,4007,0700,0400,0000,1443 



U 0171, 0563,3442,0300,4174,4007,0700,2010,0071,0043 

U O 1 75 , 2764 , 344 1 , 04 1 6 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 2764, 0410,3227,0004,1174,4007,0700,0400,0000,1442 

U 2765, 0410,3777,0016,1276,6007,0701,0000,0000,1441 



U 0410, 2776,3777,0006,0274,4007,0701,0010,0000,0000 

U 0411, 3000,0113,1616,1174,4007,0701,0400,0000,1441 

U 0414, 2766,3223,0000, 1 174,4007,0700,0400,0000, 1442 

U 2766, 0543,0111,1604,4174,4007,0700,0000,0000,0000 



U 0543, 0563,3442,0300,4174,4007,0700,2010,0071,0043 
U 0547, 2767,3445,0404,4174,4467,0700,0000,0005,0000 
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4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4081 
4082 
4083 
4084 
4085 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 



.TOC 



1 16: 



'ARITHMETIC DMUL" 



. DCODE 
DBL R, 
.UCODE 



DAC, 



d/DMUL 



. IF/FULL 
1566: 

DMUL: [AR]_[AR]*.5 



; SHIFT MEM OPERAND RIGHT 



[ ARX ] ( [ ARX ] . AND . [MAG])*. 5 



;COPY LOW WORD 

;SEE IF FIRST PART DONE 



[BR]__[ARX] , 
SKIP FPD 

BRX * BR = = > C(E+1) * C(AC+1) 

=000 [BRX]_(AC[ 1 ] . AND. [MAG] )* .5, 3T , ; GET LOW AC 
CALL [DMULGO] ; START MULTIPLY 

[ARX]_(AC[2] .AND. [MAG])*. 5, 3T , ;FIRST PART DONE 
d/DMUL 1 
AC[3]_Q 



= 100 

BRX 

O** 



DMUL 1 : 
=0*0 

BRX 

DMUL2: 



;G0 DO SECOND PART 
; SALT AWAY 1 WORD OF PRODUCT 



BRX 

= 0* * 



* ==> C(E) * C(AC+1 ) 

0_[AR] , -SC_35. , 
CALL [OMULT] 
[T01_[ARX] 

AC[2]_0, [ARX]_0*.5, 

U/DMUL2 

[TO] AC[1]*.5 



* BR ==> C(AC) * C(E+1) 

[BRX]_AC* .5, 
CALL [DBLMUL] 
AC[ 1 ]_[T0]*2, 3T, 
d/DMLINT 
AC[2]_Q 

[ARX]_[ARX]+[TO] 

* ==> C(AC) * C(E) 

Q_[AR], SC_35., 
CALL [OMULT] 
[ARX]_[ARX]*2, 
CLR FPD 



GO MULT NEXT HUNK 

SAVE PRODUCT 
SAVE PRODUCT 
GO DO HIGH HALF 
RESTORE TO 



PREPARE TO DO HIGH HALF 

GO DO IT 
INTERRUPT, SAVE TO 
SET FPD AND INTERRUPT 
SAVE PRODUCT 

; PREPARE FOR LAST MUL 



DO THE LAST MULTIPLY 

GO DO IT 
SHIFT BACK 
CLEAR FPD 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 2767, 
U 1210, 
U 1211, 
U 2770, 
U 2771 , 
U 2772, 



1 2 10 , 3770 , 0404 ,0174, 4007 , 0520 , 
2774,3223,0000, 1 174 , 4007 , 0700., 
2770,7003,0000, 1 174,4007,0700, 
2771 ,3772,0000, 1275,5007,0701 , 
2772 , 7003 , 0000 ,1174, 4007 , 0700 , 
2773,3772,0000, 1275,5007,0701 , 
U 2773, 2774,7003,0000,1174,4007,0700, 



0400,0000,0000 
0400,0000, 1441 
0400,0000, 1441 
0000,0000, 1442 
0400,0000, 1442 
0000,0000, 1443 
0400,0000, 1443 



U 2774 , 1212,3741,0103, 4074 , 4007 , 0520 , 0000 , 0000 , 0000 
U 1212, 0110,3443,0100,4174,4156,4700,0200,0014,0012 
U 1213, 1400,4443,0000,4174,4467,0700,0000,0041 , 1000 



U 2775, 2776,4221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2776 , 2777 , 3442 , 0500 , 4 1 74 , 4007 , 0700 , 2000 , 007 1 , 0043 

U 2777, 0563,3447,0606,4174,4007,0700,0000,0000,0000 

U 0563 , 3003 , 3446 , 1 200 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 0567, 0004,0113,0404,4174,4464,1701,0000,0001,0001 

U 3000 , 2675 , 4443 , 0000 ,4174, 4467 , 0700, 0000 , 0003 , 0000 
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4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
41 16 
4117 
4118 
41 19 
4 120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
;4133 
;4134 
;4135 
4136 
4137 



DMTRAP: 



=0 



AC_[ARX] TEST, SKIP DPO 
AC[ 1 ]_Q, J/DMTRAP 
AC[ 1 ]_[MAG] . EQV.O 
0_AC[2] 

AC[2]_[MAG] . EQV.O 
0__AC[3] 

AC[3]_[MAG] .EQV.Q 
[ARJ_PC WITH FLAGS, 
SKIP DPO 
DONE 

SET AROV, J/DONE 



;WAYS TO CALL MULTIPLY 
DMULGO: [ARX]_0 
DBLMUL : Q_[BR], SC_35. 

[BRX]_[BRXj*.5 

=0* * 

QMULT: Q_Q*.5, 

CALL [MULTIPLY] 
[ARXJ+CARX], AD FLAGS, 
3T, RETURN [4] 

DMLINT: SET FPD , U/FIXPC 

. I FNOT/FULL 
1566: 

DMUL: UUO 
. ENDI F/FULL 



PUT BACK INTO AC 

POSITIVE 

NEGATIVE 



LOOK AT FLAGS 

SEE IF AROV SET? 

NO- -ALL DONE 

YES- - FORCE TRAP 1 ALSO 



; CLEAR ARX 



; TEST FOR OVERFLOW 
; AND RETURN 

;SET FPD, BACKUP PC 
; INTERRUPT 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 3001, 3002,3446,0606,4174,4007,0700,0000,-0000,0000 

U 3002, 0122,4226,0004,4174,4007,0630,2000,0060,0000 

z 

I- 
o 

o 

I U 3003, 0122,3446,1200,4174,4007,0630,2000,0060,0000 

I 
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4138 ; MULTIPLY SUBROUTINE 

4139 ; ENTERED WITH: 

4140 ; MULTIPLIER IN Q 

4141 ; MULTIPLICAND IN BRX 

4142 ; RETURNS 4 WITH PRODUCT IN ARX ! Q 
4143 

4144 MUL STEP " A/BRX , B/ARX , DEST/ Q_Q* . 5 , ASHC , STEP SC,MUL DISP" 

4145 MUL FINAL " A/BRX , B/ARX , DEST/Q_Q*2 " 
4146 

4147 MULSUB: [ BRX ]__[BRX ] * . 5 LONG 

4148 MULSB1: [ARX]J>.5 LONG, ; CLEAR ARX AND SHIFT 

4149 STEP SC, ;COUNT FIRST STEP 

4150 J/MUL+ ; ENTER LOOP 
4151 

4152 ; MULTIPLY SUBROUTINE 

4153 ; ENTERED WITH:. 

4154 ; MULTIPLIER IN 

4155 ; MULTIPLICAND IN BRX 

4156 ; PARTIAL PRODUCT IN ARX 

4157 ; RETURNS 4 WITH Q*BRX+ARX IN ARX ! 

4158 v 

4159 MULTIPLY: 

4160 Q_Q*.5, ; SHI FT 

4161 STEP SC, ;COUNT FIRST STEP 

4162 J/MUL+ ; ENTER LOOP 



4163 , 



; KS10.MC1[4,311] MICRO 31(254) 

; SIMPLE. MIC[4, 31 1 ] 11:07 4- JAN- 1979 



U 0122, 0122, 3336 , 0604 ,4174, 4046 , 2630 , 2000 , 0060 , 0000 



U 0123, 0004,3334,0604,4174,4004,1700,0000,0000,0000 



U 0126, 0142, 1 1 16,0604,4174,4046,2630,6000,0060,0000 



U 0127, 0004,1114,0604,4174,4004,1700,4000,0000,0000 



U 0142, 0122,0116, 0604 ,4174, 4046 ,2630, 2000 , 0060 , 0000 



U 0143, 0004,01 14,0604,4174,4004, 1700,0000,0000,0000 



U 0146, 0142,3336, 0604 ,4174, 4046 , 2630 , 2000 , 0060 , 0000 



U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000 
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4164 ; HERE FOR POSITIVE STEPS 

4165 =010 

4166 MUL+ ; AD/B , 

4167 MUL STEP, 

4168 J/MUL+ 

4169 =011 

4170 AD/B, 

4171 MUL FINAL, 

4172 RETURN [4] 

4173 =110 

4174 AD/B-A-.25, ADD .25, 

4175 MUL STEP, 

4176 J/MUL- 

4177 =111 

4178 AD/B-A-.25, ADD .25, 

4179 MUL FINAL, 

4180 RETURN [4] 
.4181 

4182 ; HERE FOR NEGATIVE STEPS 

4183 =010 

4184 MUL- : AD/A+B, 

4185 MUL STEP, 

4186 J/MUL+ 

4187 =011 

4188 AD/A+B, 

4189 MUL FINAL, 

4190 RETURN [4] 

4191 =110 

4192 AD/B, 

4193 MUL STEP, 

4194 J/MUL- 

4195 =111 

4196 AD/B, 

4197 MUL FINAL, 

4198 RETURN [4] ' 
4199 



IN A POSITIVE STEP 
DON'T ADD 

SHIFT 

KEEP POSITIVE 
DONE 

DON'T ADD 
SHIFT 

SHIFT Q AND RETURN 

1 IN A POSITIVE STEP 
SUBTRACT 

SHIFT AND COUNT 
NEGATIVE NOW 
DONE 

SUBTRACT 
SHIFT 
AND RETURN 



IN NEGATIVE STEP 
ADD 

SHIFT AND COUNT 

POSITIVE NOW 

DONE 

ADD 

SHIFT 

;FIX AND RETURN 

1 IN NEGATIVE STEP 
DON'T ADD 

SHIFT AND COUNT 
STILL NEGATIVE 
DONE 

DON'T ADD 
SHIFT 

;FIX AND RETURN 



o 

; KS 1 . fa v- fit 4,311] MICRO 31(254) 

; SIMPLE. MIC[4, 311] 1 1 : 07 4- JAN- 1979 



D 0230, 1005,1600,1100 

D 023 1 , 0005 , 1 SOO , 3000 

D 0232, 0016,1600,1700 

D 0233, 0006,1600,1700 

D 0234, 1005, 1601 , 1 100 

D 0235, 0005,1601,3000 

D 0236, 0016,1601,1700 

D 0237, 0006,1601,1700 



U 1 600 , 3004 ,3441, 0305 ,0174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3004 , 1214,3772, 0000 , 0275 , 5007 , 0520 , OOOO , 0000 , 0000 

U 1214, 0161,4221,0003,4174,4007,0700,0000,0000,0000 

U 1215, 0161,2441,0703,4174,4007,0700,4000,0000,0000 

U 1601, 3005,3441,0305,4174,4007,0700,0000,0000,0000 

U 3005 , 3006 , 377 1 , 0003 , 0276 , 6007 , 0700 , OOOO , 0000 , 0000 

U 3006, 3007,3772,0000, 1275,5007,0701 ,0000,0000, 1441 

U 3007, 0160,3333,0003,4174,4007,0621,0000,0000,0000 

U 1 60 , 1216,7443, 0300 ,4174, 4007 , 062 1 , OOOO , OOOO , OOOO 

U 0161, 0164,3333,0005,4174,4007,0621,0000,0000,0000 

U 0164, 0370,4443,0000,4174,4007,0700,2010,0071,0042 

U 0165, 0555,4443,0000,4174,4467,0700,0000,0051,1000 

U 0166, 1 177,3441 ,0304,4174,4007,0700,0000,0000,0000 



U 
U 



1216, 
1217, 



3010,3441, 0306 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
0164,3333, 0005 ,4174, 4007 , 062 1 , OOOO , OOOO , OOOO 
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4200 


. TOC 


"ARITHMETIC -- 


DIV, IDIV" 


4201 










4202 




. DCODE 






4203 


230 : 


R-PF, DAC, 


J/IDIV 




4204 




I-PF, DAC, 


J/ I DIV 




4205 




RW, M, 


J/IDIV 




4206 




RW, DBL B, 


J/IDIV 




4207 










4208 


234 : 


R-PF, DAC, 


J/DIV 




4209 




I-PF, DAC, 


J/DIV 




4210 




RW , M , 


J/DIV 




42 1 1 




RW, DBL B, 


J/DIV 




42 1 2 




. UCODE 






4213 










42 1 4 


1 600 : 








421 5 


IDI V : 


[ BR ] [ AR ] , AC 




COPY MEMORY OPERAND 


42 1 6 




acT 




LOAD Q 


4217 




SKIP DPO 




SEE IF MINUS 


42 1 8 


=0 


[ AR ] , 




EXTEND + SIGN 


4219 




J/DI V 1 




NOW SAME AS DIV 


4220 




[ AR ] - 1 , 




EXTEND - SIGN 


4221 




J/DIV1 




SAME AS DIV 


4222 










4223 


1601 : 








4224 


DIV : 


[BR] [AR] 




COPY MEM OPERAND 


4225 




[AR] AC 




GET AC 


4226 




AC[ 1 ] 




AND AC+1 


4227 




READ [ AR] , 




TEST FOR NO DIVIDE 


4228 




SKIP AD.EQ.O 






4229 


=000 


. NOT . [ AR ] , 




SEE IF ALL SIGN BITS IN AR 


4230 




SKIP AD.EQ.O, 






4231 




J/DI VA 




CONTINUE BELOW 


4232 


=001 








4233 


DIV1 : 


READ [BR ] , 


;SEE IF DIVIDE BY 


4234 




SKIP AD.EQ.O 




ZERO 


4235 


= 100 








4236 


DI V2 : 


SC 34 . , 




NOT ZERO- - LOAD STEP COUNT 


4237 




caUl [DIVSUB] 




DIVIDE 


4238 


= 101 


NO DIVIDE 




DIVIDE BY ZERO 


4239 


= 1 10 


[ ARX] [AR] , 




COPY REMAINDER 


4240 




J/IMUL1 




STORE ANSWER 


424 1 


_ 








4242" 










4243 










4244 


=0 








4245 


DIVA: 


[BRX] [AR], 




HIGH WORD IS NOT SIGNS 


4246 




J/DIVB 




GO TEST FOR NO DIVIDE 


4247 




READ [BR] , 




ALL SIGN BITS 


4248 




SKIP AD.EQ.O, 




SEE IF ZERO DIVIDE 


4249 




J/DIV2 




BACK TO MAIN FLOW 


4250 











; KS10.MC1 [4, 31 1 ] MICRO 31(254) 

; SIMPLE. MIC[4, 3113 11:07 4-UAN-1979 

U 3010, 3011,3221,0004,4.174,4007,0700,0000,0000,0000 

U 3011, 0330,3333,0003,4174,4007,0520,0000,0000,0000 

U 0330 , 1 220 , 3333 , 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 
U 0331 , 3072,4551 ,0404,4374,0007,0700,0010,0037,7777 

U 0333 , 1 220 , 3333 , 0005 , 4 1 74 , 4007 , 0520 , 0000 , 0000 , 0000 



U 1220, 1222,21 13,0305,4174,4007,0521 ,4000,0000,0000 

U 1221 , 1222,01 13,0305,4174,4007,0521 ,0000,0000,0000 

U 1222, 0555,4443,0000,4174,4467,0700,0000,0051,1000 

U 1223, 0161,3441,0603,4174,4007,0700,0000,0000,0000 
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4251 DIVB: [ARX]_Q ; MAKE ABS VALUES 

4252 READ [AR], ;SEE IF + 

4253 SKIP DPO 

4254 =00 READ [BR], ;SEE IF + 

4255 SKIP DPO, 

4256 U/DIVC ; CONTINUE BELOW 

4257 CLEAR [ARXjO, ; FLUSH DUPLICATE SIGN 

4258 CALL [DBLNG1] ; NEGATE AR1ARX 

4259 =11 READ [BR], ;SEE IF TOO BIG 

4260 SKIP DPO, 

4261 J/DIVC 

4262 = 

4263 =0 

4264 DIVC: [ AR ] - [BR ] , ;COMPUTE DIFFERENCE 

4265 SKIP DPO, ; SEE IF IT GOES 

4266 3T, ;ALLOW TIME 

4267 J/NODTV ; TEST 

4268 [ AR ]+ [BR ] , 

4269 SKIP DPO, ; SAME TEST FOR -VE BR 

4270 3T, 

4271 J/NODIV 

4272 =0 

4273 NODIV: NO DIVIDE ; TOO BIG 

4274 [AR3_[BRX3, ;FITS 

4275 J/DIV1 ;G0 BACK AND DIVIDE 
4276 



KS10.MC 1 [4,31 1 ] 
SIMPLE. MIC[4, 31 1 ] 



Micro 31(254) 

11 :07 4-JAN-1979 



D 01 17, 0205, 1627, 1 100 

U 1627, 3012,4112,0400,4174,4007,0700,0000,0000,0000 

U 301 2 , 1 224 , 3447 , 0305 ,4174, 4007 , 042 1 , 0000 , 0000 , 0000 

U 1 224 , 1 230 , 3446 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 225 , 1 226 , 3446 , 0505 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1 226 , 1 230 , 4003 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 1227, 3013,4751,1217,4374,4007,0700,0000,0000,0005 

U 3013, 3014,3662,0000,4374,0007,0700,0000,0060,0000 

U 3014, 3015,2222,0000,4174,4007,0700,4000,0000,0000 

U 3015, 3017,2446,0505,4174,4047,0700,0040,0000,0000 



U 1 230 , 30 1 6 , 3446 , 0505 ,4174, 4047 , 0700 , 0000 , 0000 , 0000 

U 1231, 0555,4443,0000,4174,4467,0700,0000,0051,1000 

U 3016, 3017,4751 , 1217,4374,4007,0700,0000,0000,0004 

U 3017, 3020,3221,0006,0174,4007,0700,0000,0000,0000 

U 3020, 0054,3777,0003,0274,4007,0520,0000,0000,0000 



U 0054, 1232,4552,0000, 1275,5007,0701 ,0000,0000, 1441 
U 0055, 3061,6551,1717,4374,4007,0700,0010,0000,0007 
U 0075, 0054,3447,0303,4174,4007,0700,0000,0000,0000 



U 1232, 3043,3446,0303,4174,4007,0700,0010,0000,0000 

U 1 233 , 1 234 , 2 1 1 3 , 0305 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 1234, 1 236 , 2 1 1 3 , 0305 ,4174, 4007 , 0620 , 4000 , 0000 , 0000 

U 1235, 3021,3221,0004,4174,4007,0700,0000,0000,0000 



U 1236, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1237, 1240, 1003,0600,4174,4007,0521 ,4000,0000,0000 

U 1240, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1241, 3021,3221,0004,4174,4007,0700,0000,0000,0000 
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4277 .TOC "ARITHMETIC -- DDIV" 

4278 

4279 . DCODE 

4280 117: DBL R, DAC , J/DDIV 

4281 .UCODE 
4282 

4283 .IF/FULL 

4284 1627: 

4285 DDIV: Q_[ ARXl . AND . [MAG] ;COPY LOW WORD 

4286 [BR]_[AR]*.5, ;COPY MEMORY OPERAND 

4287 SKIP AD.LE.O ;SEE IF POSITIVE 

4288 =0 [BR]_[BR]*.5 LONG, ;POSITIVE 

4289 J/DDIV1 ;CONTINUE BELOW 

4290 [BR]_[BR]*.5 LONG, ; NEGATIVE OR ZERO 

4291 SKIP DPO ;SEE WHICH? 

4292 =0 [MAG]. AND. 0, ;SEE IF ALL ZERO 

4293 SKIP AD.EO.O, J/DDIV1 ;CONTINUE BELOW 

4294 [T13JD XWD [5] ; NEGATE MEM OP 

4295 Q_Q.OR.#, #/600000, ;SIGN EXTEND THE LOW 

4296 HOLD RIGHT ; WORD 

4297 Q_-0 ; MAKE POSITIVE 

4298 [BR]_(-[BR]-.25)*.5 LONG, ; NEGATE HIGH WORD 

4299 ASHC, MULTI PREC/1, ;USE CARRY FROM LOW WORD 

4300 J/DDIV3 ;CONTINUE BELOW 

4301 =0 

4302 DDIV1: [BR]_[BR]*.5 LONG, ;SHIFT OVER 1 PLACE 

4303 ASHC, J/DDIV2 ; CONTINUE BELOW 

4304 NO DIVIDE ;DIVIDE BY ZERO 

4305 DDI V2 : [T1]_0 XWD [4] ; MEM OPERAND IS POSITIVE 

4306 DDI V3 : [BRX]_Q, AC ;COPY 
4307 

4308 [AR]_AC*.5, 2T , SKIP DPO ; GET AC- -SEE IF NEGATIVE 

4309 =0*1*0 

4310 DDI V3A : 0_AC [ 1 ] . AND . [ MAG ] , ;POSITIVE (OR ZERO) 

4311 J/DDIV4 ;CONTINUE BELOW 

4312 [T1 ]_[T1 ] .XOR.#, ; NEGATIVE 

4313 #/7, CALL [QDNEG] ; UPDATE SAVED FLAGS 

4314 =1*1*1 [AR]_[AR]*.5, ;SHIFT AR OVER 

4315 J/DDIV3A ; GO BACK AND LOAD Q 

4316 = 

4317 =0 

4318 DDI V4 : [AR]_[AR]*.5 LONG, ;SHIFT AR OVER 

4319 CALL [DDIVS] ;SHIFT 1 MORE PLACE 

4320 [ AR ] - [ BR ] , 3T , SKIP DPO ; TEST MAGNITUDE 

4321 =0 [ AR ] - [ BR ] , 2T , 

4322 SKIP AD.EO.O, J/DDIV5 

4323 [ARX]_Q, J/DDIV5A ; ANSWER FITS 
4324 

4325 =0 

4326 DDIV5: READ [T1], 3T , DISP/DP, J/NODDIV 

4327 Q-[BRX], 3T , SKIP DPO 

4328 =0 READ [T1], 3T , DISP/DP, d/NODDIV 

4329 [ARX]_0 ;COPY LOW WORD 



4330 



KS10.MC1[4,311J MICRO 31(254) 

SIMPLE.MIC[4,311] 11 :07 4-UAN-1979 



U 3021, 0354,4552,0000,1275,5007,0701,0000,0000,1442 

U 0354, 1264,3446, 1200, 4 174 , 4007 ,0700, 2010,0071 ,0042 

U 0356 , 3022 , 3224 , 00 1 6 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3022, 3023,0002,1600,4174,4007,0700,0000,0000,0000 

U 3023 , 1242, 4003 , 0000 ,1174, 4007 , 0700 , 0400 , OOOO , 1440 

U 1242, 3043 , 3442 , 0400 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 1 243 , 3024 , 322 1 , 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3024, 0551,4552,0000,1275,5007,0701,0000,0000,1443 



U 0551 , 1264,3446,0316,4174,4007,0520,2010,0071 ,0042 

U 0553 j 3025,3224,0016,4174,4007,0700,0000,0000,0000 

U 3025, 0056,3333,0017,4174,4003,5701,0000,0000,0000 

U 0056 , 3030 , 000 1,1616,4174, 4007 , 0700, 0000 , 0000 , OOOO 

U 0057 , 3026 , 2225 , 00 1 6 , 4 1 74 , 4007 , 0700 , 4000 , 0000 , 0000 



U 3026, 3027, 1772,0000,0274,4007,0701 ,0040,0000,0000 

U 3027 , 1 244 , 3223 , 0000 ,0174, 4007 , 062 1 , 0400 , 0000 , 0000 

U 1244, 3031,3440,1616,1174,4007,0700,0400,0000,1441 

U 1245, 3033,4223,0000, 1 174,4007,0700,0400,0000, 1441 

U 3030, 3033,4113,1600,1174,4007,0700,0400,0000,1441 

U 3031, 3032,3551,1616,4374,0007,0700,0000,0040,0000 

U 3032, 3033,3440,1616,1174,4007,0700,0400,0000,1441 

U 3033 , 1 246 , 3333 , 0003 , 4 1 74 , 4007 , 0520 , 0000 , 0000 , 0000 

U 1246, 3037,3442,0400,4174,4007,0700,0000,0000,0000 

U 1247, 3034 ,0112, 0406 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 3034, 3035,0111,0503,4174,4007,0700,0040,0000,0000 

U 3035 , 3036 , 0002 , 0600 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 

U 3036, 3037,0111,0503,4174,4007,0700,0040,0000,0000 

U 3037, 0355,3333,0017,4174,4003,5701,0000,0000,0000 



U 0355 , 304 1 , 3444 , 0303 ,4174, 4047 , 0700 , OOOO , OOOO , OOOO 
U 0357, 3040,2222,0000,4174,4007,0700,4000,0000,0000 

U 3040 , 304 1 , 2444 , 0303 ,4174, 4047 , 0700 , 0040 , OOOO , OOOO 
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4331 ; HERE WITH EVERYTHING SETUP AND READY TO GO 

4332 DDI V5A : Q__AC [ 2 ] . AND . [ MAG } 

4333 =0* Q_Q*.5, SC_34., CALL [DBLDIV] 

4334 [T0]_Q*2 LONG 

4335 0_0+[TO] 

4336 AC[O]_0. AND. [MAG] ;STORE ANSWER 

4337 =0 Q_[ARX], CALL [DDIVS] ;SHIFT OUT EXTRA ZERO BIT 

4338 [ARX]_Q ; 

4339 Q_AC[3] .AND. [MAG] 

4340 =0* [T0]_[AR]*.5 LONG, ;SHIFT 0, PUT AR ON DP 

4341 SC_34., ; LOAD SHIFT COUNT 

4342 SKIP DPO, ; LOOK AT AR SIGN 

4343 CALL [DBLDIV] ; GO DIVIDE 

4344 [T0]_Q*2 LONG 

4345 READ [T1], 3T , DISP/DP ; WHAT SIGN IS QUO 

4346 =1110 [TO]_[TO]+0, ;POSITIVE QUO 

4347 J/DDIV5B ;CONTINUE BELOW 

4348 [T0]_-Q*2 ; NEGATIVE QUO 

4349 AD/-D-.25, DBUS/RAM , 3T , 

4350 RAMADR/AC# , DEST/Q_AD, 

4351 MULTI PREC/1 

4352 AC_Q, SKIP AD.EQ.O 

4353 =0 AC[1]__[T0], U/DDIV5C 

4354 AC[1]_0, U/DDIV6 
4355 

4356 DDI V5B : AC [ 1 ]_[ TO] . AND . [ MAG ] , J/DDIV6 ; STORE LOW WORD IN + CASE 
4357 

4358 DDI V5C : [TO]_[TO] . OR. # , #/400000, HOLD RIGHT 

4359 AC[1]__[T0] 
4360 

4361 DDI V6 : READ [AR], SKIP DPO ; LOOK AT AR SIGN 

4362 =0 

4363 DDI V7 : Q__[ARX], U/DDIV8 . 

4364 Q_[ARX]+[BRX] 

4365 [AR]_[AR]+[BR] , 

4366 MULTI PREC/1 

4367 0_Q+[BRX] 

4368 [AR]_[AR]+[BR] , 

4369 MULTI PREC/1 

4370 DDIVS: READ [T1], 3T , DISP/DP 

4371 =1101 

4372 DDI V8A : [AR]_[AR]*2 LONG, ASHC, ;POSITIVE REMAINDER 

4373 U/DDIV9 ;CONTINUE BELOW 

4374 Q__-Q ; NEGATE REMAINDER IN AR ! 

4375 [AR]_(-f AR]-.25)*2 LONG, 

4376 MULTI PREC/1, ASHC 
4377 



KSIO.Nk, , l4,31 1 ] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 3041 , 1250,01 13,0303, 1 1 74 , 4007 , 052 1 ,0400,0000, 1442 

U 1250, 0100,4003,0000,1174,4156,4700,0400,0000,1443 

U 1251, 3042,4002,0000,1174,4007,0700,0000,0000,1443 

U 3042, 0100,7003,0000,1174,4156,4700,0400,0000,1443 



U 0033 , 306 1,4443, 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 0037, 0555,4443,0000,4174,4467,0700,0000,0051,1000 

U 3043, 0001,3446,0303,4174,4044,1700,0000,0000,0000 
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4378 DDI V9 : AC [ 2 ]_[ AR ] + [ AR ] , 3T , 

4379 SKIP DPO 

4380 =0 AC[3]_Q. AND. [MAG] , 

4381 NEXT INST 

4382 Q_Q. AND. [MAG] , AC[3] 

4383 AC[3]_[MAG] . EQV.Q, 

4384 NEXT INST 
4385 

4386 

4387 ; HERE IF WE WANT TO SET NO DIVIDE 

4388 =11011 

4389 NODDIV: CALL [ QDNEG ] ;FIXUP AC TO AC+3 

4390 NO DIVIDE ; ABORT DIVIDE 
4391 

4392 DDIVS: [AR]_[AR]*.5 LONG, ASHC, RETURN [1] 

4393 . IFNOT/FULL 

4394 1627: 

4395 DDIV: UUO 

4396 . ENDI F/FULL 
4397 



KS10.MC1 [4,31 1 ] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 0370 , 3044 , 4662 , OOOO , 4374 , 0007 , 0700 , 00 10 , 0037 ,7777 

U 0374, 0002,4443,0000,4174,4004,1700,0000,0000,0000 

U 0375, 0002,2222,0000,4174,4004,1700,4000,0000,0000 

U 0376, 0377,2222,0000,4174,4007,0700,4000,0000,0000 

U 0377, 0002,2441,0303,4174,4004,1700,4000,0000,0000 
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4398 .TOC "ARITHMETIC DIVIDE SUBROUTINE" 

4399 

4400 ; HERE IS THE SUBROUTINE TO DO DIVIDE 

'4401 ; ENTER WITH: 

4402 ; AR!Q = D ' END 

4403 ; BR = D'SOR 

4404 ; RETURN 2 WITH: 

4405 ; AR = REMAINDER 

4406 ; Q = QUOTIENT 

4407 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4408 ; 

4409 =1000 

4410 DIVSUB: Q_Q. AND. #, ; CLEAR SIGN BIT IN 

4411 0/377777, ; MASK 

4412 HOLD RIGHT, ;UUST CLEAR BIT O 

4413 CALL [DIVSGN] ; DO REAL DIVIDE 

4414 =1100 RETURN [2] ; ALL POSITIVE 

4415 =1101 Q_-Q, RETURN [2] ; -QUO +REM 

4416 =1110 0_-0 ; ALL NEGATIVE 

4417 =1111 [AR]_-[AR], RETURN [2] ;NEGATIVE REMAINDER 
4418 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 3044, 
U 1252, 
U 1253, 
U 1254, 
U 1255, 

U 3045, 
U 3046,. 



U 1256, 
U 1257, 

U 3047, 
U 3050, 
U 3051 , 
U 3052, 
U 3053, 



U 1260, 
U 1261, 
U 3054, 

U 1262, 
U 1263, 
U 3055, 
U 3056, 



U 3057, 



1 252 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 
3046 ,4221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
1 254 , 2222 , 0000 ,4174, 4007 , 062 1 , 4000 , 0000 , 0000 
3045 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3045 , 244 1 , 0303 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

3046 ,3771, 0004 , 4374 , 4007 , 0700 , 0000 , OO 1 , 0000 
1 256 , 3333 , 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



3050 , 3446 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3047 , 244 1 , 0505 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

1256, 355 1 , 0404 , 4374 , 4007 , 0700 , 0000 , 0004 , 0000 
305 1,3447, 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3052 , 3447 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3053 , 3447 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
1260, 1 1 14,0503,4174,4067,0630,6000,0060,0000 



1260,01 14,0503, 4174,4067,0630, 2100,0060,0000 
3054 , 3444 ,1717,4174, 4067 , 0700 , O 1 00 , 0000 , 0000 
1262, 3447 , 0303 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

3055 , 3444 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
1262,01 1 1 ,0503,4174,4007,0700,0000,0000,0000 
3056 , 3444 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3057 , 4002 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



00 1 4 , 3333 , 0004 ,4174, 4000 , 1 70 1 , 0000 , 0000 , 0000 
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; 4419 ; HERE IS THE INNER DIVIDE SUBROUTINE 

; 4420 ; SAME SETUP AS DIVSUB 

; 4421 ; RETURNS WITH AR AND Q POSITIVE AND 

; 4422 ; 14 IF ALL POSITIVE 

; 4423 ; 15 IF -QUO 

; 4424 ; 16 IF ALL NEGATIVE 

; 4425 ; 17 IF NEGATIVE REMAINDER 

; 4426 

; 4427 BASIC DIV STEP "DEST/Q_Q*2, DIV, A/BR, B/AR, STEP SC" 

; 4428 DIV STEP "BASIC DIV STEP, AD/A+B, DIVIDE/1" 

; 4429 FIRST DIV STEP "BASIC DIV STEP, AD/B-A-.25, ADD .25" 

; 4430 

; 4431 DIVSGN: READ [AR], SKIP DPO 

; 4432 =0 [ARX]_0, J/DVSUB2 REMAINDER IS POSITIVE 

; 4433 Q_-Q, SKIP AD.EQ.O ; COMPLEMENT LOW WORD 

; 4434 =0 [AR]_.NOT. [AR] , J/DVSUB 1 ; COMPLEMENT HI WORD 

; 4435 [AR]_-[AR] ; TWO'S COMPLEMENT HI WORD SINCE 

; 4436 ; LOW WORD WAS ZERO 

; 4437 DVSUB 1 : [ARX]_#, #/100000 REMAINDER IS NEGATIVE 

; 4438 DVSUB2: READ [BR], SKIP DPO ;IS THE DIVISOR NEGATIVE 

; 4439 =0 

; 4440 DVSUB3: [AR]_[AR]*.5 LONG, ; START TO PUT IN 9-CHIPS 

; 4441 J/DIVSET ;JOIN MAIN STREAM 

; 4442 [BR]_-[BR] ; COMPLEMENT DIVISOR 

; 4443 [ARX]_[ARX] .0R.#, ; ADJUST SIGN OF QUOTIENT 

; 4444 #/40000, J/DVSUB3 ;USE 9 CHIPS 

; 4445 DIVSET: [AR]_[AR]*.5 

; 4446 [BR]_[BR]*.5 

; 4447 [BR]_[BR]*.5 

; 4448 FIRST DIV STEP 

; 4449 ; HERE IS THE MAIN DIVIDE LOOP 

; 4450 =0 

; 4451 DIVIDE: DIV STEP, J/DIVIDE 

; 4452 [T1]_[T1]*2 LONG, DIVIDE/1, DIV 

; 4453 [AR]_[AR]*.5, SKIP DPO 

; 4454 =0 

; 4455 FIX++: [AR]_[AR]*2 LONG, J/FIX1++ 

; 4456 [AR]_[AR]+[BR] , J/FIX++ 

; 4457 FIX1++: [AR]_[AR]*2 LONG 

; 4458 Q_[MASK ] . AND . 

; 4459 READ [ARX], 3T , ; RETURN TO 1 OF 4 PLACES 

; 4460 DISP/1, ; BASED ON SIGN OF RESULT 

; 4461 J/14 ; RETURN 

; 4462 



KS10.MC1[4,311] 
SIMPLE . MIC [ 4 , 3 1 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 
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U 1264, 3060,1114,0604,4174,4057,0700,4000,0000,0000 

U 1265, 3060,0114,0604,4174,4057,0700,0000,0000,0000 

U 3060 , 1 266 ,0115, 0503 ,4174, 4007 , 0630 , 2040 , 0060 , 0000 

U 1266, 3060,0114,0604,4174,4067,0700,0100,0000,0000 

U 1267, 0002,4444,0002,4174,4064,1700,0100,0000,0000 



4463 .TOC "ARITHMETIC -- DOUBLE DIVIDE SUBROUTINE" 

4464 .IF/FULL 

4465 ; CALL WITH: 

4466 ; AR!ARX!Q = 3 WORD DV ' END 

4467 ; BR ! BRX = 2 WORD DV'SOR 

4468 ; RETURN 2 WITH: 

4469 ; ARIARX = 2 WORD REMAINDER 

4470 ; CORRECT IF POSITIVE (Q IS ODD) 

4471 ; WRONG (BY BR! BRX) IF NEGATIVE (0 IS EVEN) 

4472 ; Q =1 WORD QUOTIENT 

4473 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4474 ; 

4475 ; NOTE : THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS 

4476 ; 

4477 =0 

4478 ; HERE FOR NORMAL STARTUP 

4479 DBLDIV: [ ARX ]_( [ ARX ] - [ BRX ] ) *2 LONG/ ; SUBTRACT LOW WORD 

4480 LSHC, J/DIVHI ; GO ENTER LOOP 

4481 ;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR 

4482 [ARX]_( [ARX]+[BRX] )*2 LONG, ; CORRECTION STEP 

4483 LSHC, J/DIVHI ; GO ENTER LOOP 
4484 

4485 ; HERE IS DOUBLE DIVIDE LOOP 

4486 DIVHI: AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4487 A/BR, B/AR, ; OPERANDS ARE AR AND BR 

4488 DEST/AD*2, ;SHIFT LEFT 

4489 SHSTYLE/NORM, ;SET SHIFT PATHS (SEE DPE1) 

4490 MULT I PREC/1, ; INJECT SAVED BITS 

4491 STEP SC ; COUNT DOWN LOOP 

4492 =0 AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4493 A/BRX, B/ARX, ; LOW WORDS 

4494 DEST/Q_Q*2, ; SHIFT WHOLE MESS LEFT 

4495 SHSTYLE/DI V , ; SET SHIFT PATHS (SEE DPE1) 

4496 DIVIDE/1, ; SAVE BITS 

4497 • J/DIVHI ; KEEP LOOPING 

4498 ; HERE WHEN ALL DONE 

4499 DEST/Q__Q*2, DIV, ;SHIFT IN LAST Q BIT 

4500 DIVIDE/1, ; GENERATE BIT 

4501 B/HR, RETURN [2] ;ZERO HR AND RETURN 
4502 



o 

; KS10.MCf[4,31 1 3 MICRO 31(254) 

; SIMPLE. MIC[4, 311] 1 1 : 07 4-JAN- 1979 



U 3061 , 3062, 1772,0000, 1274,4007,0701 ,4000,0000, 1443 

U 3062, 1270,4003,0000, 1 1 74 , 4007 , 062 1 ,0400,0000, 1443 

U 1270, 3065,7772,0000,1274,4007,0701,0000,0000,1442 

U 1271, 3063,1772,0000,1274,4007,0701,4000,0000,1442 

U 3063, 1272,4003,0000, 1 1 74 , 4007 , 062 1 ,0400,0000, 1442 

U 1272, 3066,7772,0000, 1274,4007,0701 ,0000,0000, 1441 

U 1273, 3064,1772,0000,1274,4007,0701,4000,0000,1441 

U 3064 , 1 274 , 4003 , 0000 ,1174, 4007 , 062 1 , 0400 , 0000 ,1441 

U 1 274 , 3067 ,7771, 0003 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1 275 , 3067 ,1771, 0003 , 0274 , 4007 , 070 1 , 4000 , 0000 , 0000 

U 3065, 1272,4003,0000, 1 1 74 , 4007 , 0700 , 0400 , 0000, 1442 

U 3066 . 1274, 4003 , 0000 ,1174, 4007 , 0700 , 0400 , 0000 ,1441 

U 3067, 0024,3440,0303,0174,4004,1700,0400,0000,0000 



U 3070, 3071 ,4551 ,0404,4374,0007,0700,0000,0037,7777 

U 3071-, 1276,2441 ,0404,4174,4007,0621 ,4000,0000,0000 

U 1276, 2222,7441,0303,4174,4467,0700,0000,0001,0001 

U 1277, 2222,2441,0303,4174,4467,0701,4000,0001,0001 



U 3072, 
U 1300, 
U 1301, 



1 300 , 244 1 , 0404 ,4174, 4007 , 062 1 , 4000 , 0000 , 0000 
2222 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
2222 , 244 1 , 0303 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 
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4503 
4504 
4505 
4506 
4507 
4508 
4509 
4510 
451 1 
4512 
( 4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 



. TOC 



"ARITHMETIC 



SUBROUTINES FOR ARITHMETIC" 



QUAD WORD NEGATE 
ARGUMENT IN AC ! AC 1 ! AC2 ! AC3 
LEAVES COPY OF AC ! AC 1 IN AR ! Q 
RETURNS TO CALL! 24 



ODNEG: 



=0 

C0M2A: 



=0 

COM 1 A : 



=0 

COMOA : 



0_-AC[3] 

AC[3]_Q. AND. [MAG] , 
SKIP AD.EO.O 

0_.N0T.AC[2] , U/C0M2 
Q_-ACJ2] 

AC[2]_Q. AND. [MAG] , 
SKIP AD.EO.O 

Q_.N0T.AC[ 1 ] , J/C0M1 
Q_-AC[ 1 ] 

AC[ 1 ]_Q. AND. [MAG] , 
SKIP AD.EQ.O 



;PUT BACK LOW WORD 
;SEE IF ANY CARRY 

CARRY - -DO 1'S COMPLEMENT 
NEXT WORD 
PUT BACK WORD 



[AR] 
[AR]] 



.NOT. AC, 
-AC, 3T, 



J/COMO 
J/COMO 



AC[2]_Q. AND. [MAG] , J/ COM 1 A 
AC[ 1 ]_0. AND. [MAG] , J/COMOA 
AC [AR], RETURN [24] 



COM2 
C0M1 
COMO 

. ENDI F/FULL 

DOUBLE WORD NEGATE 
ARGUMENT IN AR AND ARX 
RETURNS TO CALL! 2 

DBLNEG: CLEAR ARXO 
DBLNGA: [ARX]_-[ARX] , 
SKIP AD.EO.O 
[AR]_.NOT. [AR] , 
AD FLAGS, J/CLARXO 
[AR]_-[AR] , 

AD FLAGS, 3T, J/CLARXO 



=0 



FLUSH DUPLICATE SIGN 

FLIP LOW WORD 

SEE IF CARRY 

NO CARRY-- 1 COMP 

CLEAR LOW SIGN 

CARRY 



; SAME THING BUT DOES NOT SET PC FLAGS 
DBLNG1: [ ARX ]_- [ ARX ] , SKIP AD.EO.O 
=0 [AR]_.NOT. [AR] , J/CLARXO 

[AR] -[AR], J/CLARXO 
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4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 



.TOC 



. NOB IN 
"BYTE GROUP 



IBP, ILDB, LDB , IDPB, DPB " 



; ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER 
;IN THE AR. ALL INSTRUCTIONS SHARE COMMON SUBROUTINES. 

IBP OR ADJBP 

IBP IF AC#0, ADJBP OTHERWISE 
HERE WITH THE BASE POINTER IN AR 

HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS: 
THE AR IS PUT ON THE DP. 

THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD 
THE SCAD COMPUTES P-S 

IBPS IS CALLED WITH A 4-WAY DISPATCH ON SCADO AND F I RST - PART -DONE 
THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS 
IN THE MICRO ASSEMBLER 



IBP DP 
IBP SCAD 
IBP SPEC 
CALL IBP 



"AD/D, DEST/A, A/AR, B/BR, DBUS/DBM , DBM/DP, BYTE/BYTE 1 1 
"SCAD/A-B, SCADA/BYTE 1 , SCADB/SIZE" 
"SCAD DISP, SKIP FPD" 

" IBP DP, IBP SCAD, IBP SPEC, CALL [IBPS], DT/3T" 



SET P TO 36-S "AD/D, DEST/A, A/BR,B/AR, DBUS/DBM, DBM/DP, SCAD/A-B, SCADB/SIZE, BYTE/BYTE1 , SCADA/PTR44 " 

; THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT 
; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT 1S. 
BYTE STEP ,r SCAD/A+B,SCADA/S#,S#/177O,SCADB/FE,L0AD FE, 3T , SCAD DISP" 



KS10.MC 1 [4 ,311] 
SIMPLE . MIC[4 , 31 1 ] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



D 0133, 0015, 1610, 1 100 

D 0134, 0000,1620,1500 

D 0135, 0000,1624,1100 

D 0136, 0000,1630,1500 

D 0137, 0000,1634,1100 



U 1610, 0240,4443,0000,4174,4007,0360,0000,0000,0000 

U 0240, 3130,3333,0003,7174,4007,0700,0400,0000,0223 

U 0241, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 0245, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 1620, 0350,3770,0305,4334,4016,7351,0010,0033,6000 



U 1624, 3100,3333,0003,4174,4217,0701 , 1010,0073,0500 
U 1625, 0604,3443,0100,4174,4007,0700,0200,0014,0012 



U 0604, 0340,3333,0003,4174,4006,5701,1010,0051,0770 

U 0606, 0555,3440,0303,0174,4467,0700,0400,0005,0000 

U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 1634, 3073,3775,0004,0274,4007,0701,0000,0000,0000 



U 3073, 3074,3443,0400,4174,4007,0701,1000,0077,0000 
U 3074, 0264,3771,0004,0276,6007,0700,0000,0000,0000 



U 0264, 3100,3333,0003,4174,4217,0700,0010,0000,0500 



U 0265, 
U 0267, 



0360 , 3333 , 0003 ,4174, 4006 , 570 1 , 00 10 , 0000 , 0000 
1 400 , 4443 , 0000 ,4174,4467, 0700 , 0000 , 0005 , 0000 
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4619 




CALL [BYTEA] 


COMPUTE EFFECTIVE ADDRESS 


4620 




READ [AR], 


• LOOK AT POINTER AGAIN 


4621 




BYTE DISP, 


.DISPATCH ON SIZE 


4622 




CALL [ DPB 1 ] 


GO STORE BYTE 


4623 


= 111 


CLR FPD, J/D0NE 


, ALL DONE 


4624 








4625 









/ 
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U 0350 , 3076 , 344 1 , 0503 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 

U 035 1 , 0004 , 4443 , 0000 , 4 1 74 , 4004 , 1 700 , 0000 , 0000 , 0000 

U 0352, 3075,3770,0503,4334,4017,0700,0000,0032,6000 

U 0353, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 3075 , 3076 ,0111, 0703 , 4 1 70 , 4007 , 0700 , 0200 , 0003 , 0002 
U 3076, 0004,3333,0003,4175,5004,1701,0200,0000,0002 



U 3077, 0070,4443,0000,2174,4006,6700,0000,0000,0000 

U 3100, 0070,4443,0000,2174,4466,6700,0000,0003,0000 

U 0070 , 3 102 , 0553 , 0300, 2274 , 4007 , 0700 , 0200 , 0004 , 07 1 2 

U 0072 , 3 102 , 3443 , 0300 , 4 1 74 , 4007 , 0700 , 0200 , 0004 , 07 1 2 

U 0074, 3101,0553,0300,2274,4007,0700,0200,0004,0512 

U 0076, 3101,3443,0300,4174,4007,0700,0200,0004,0512 

U 3101 , 3077,3771 ,0003,4361 ,5217,0700,0200,0000,0502 

U 3102, 0001,4551,1205,4365,5004,1700,0200,0000,0002 
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4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
4642 
4643 
4644 
4645 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 



.TOC 

=00 
IBPS: 



NXTWRD: 
IBPX: 



"BYTE GROUP INCREMENT BYTE POINTER SUBROUTINE" 



[AR]__[BR] , START WRITE, J/IBPX 
RETURN [4] 

SET P TO 36-S, J/NXTWRD 
RETURN [4] 



NO OVERFLOW, BR HAS ANSWER 
FIRST PART DONE SET 
WORD OVERFLOW 

FPD -WAS SET IGNORE OVERFLOW 
AND RETURN 



[AR]_[AR]+1, HOLD LEFT, START WRITE 
MEM WRITE, MEM [AR], RETURN [4] 



;BUMP Y AND RETURN 



.TOC 



"BYTE GROUP 



BYTE EFFECTIVE ADDRESS EVALUATOR" 



; ENTER WITH POINTER IN AR 
; RETURN1 WITH (EA) IN VMA 
BYTEAS: EA MODE DISP, 

J/BYTEAO 
BYTEA: SET FPD, 

EA MODE DISP 

= 100* 

BYTE AO: VMA_[AR]+XR, 
START READ, 
PXCT BYTE DATA, 
J/BYTFET 
VMA__[ AR ] , 
START READ, 
PXCT BYTE DATA, 
J/BYTFET 
VMA_[AR]+XR, 
START READ, 
PXCT BYTE PTR EA, 
J/BYTIND 
VMA__[AR] , 
START READ, 
PXCT BYTE PTR EA 

BYTIND: MEM READ, 
[ AR ]_MEM , 
HOLD LEFT, 
LOAD BYTE EA, 
J/BYTEAS 

BYTFET: MEM READ, 

[BR]_MEM. AND. MASK, 
RETURN [1] 



AND WORD IN BR 

HERE TO AVOID FPD 
GO COMPUTE EA 
SET FIRST-PART-DONE 
DISPATCH 



INDEXING 

FETCH DATA WORD 

FOR PXCT 

GO WAIT 

PLAIN 

START CYCLE 
FOR PXCT 
GO WAIT 
BOTH 

START CYCLE 

FOR PXCT 

GO DO INDIRECT 

JUST <® 

START READ 

FOR PXCT 

WAIT FOR @> WORD 

PUT IN AR 

JUST IN RH (SAVE P & S) 
LOOP BACK 



WAIT FOR BYTE DATA 

WORD. UNSIGNED 
RETURN TO CALLER 
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U 0340, 0550,4443,0000,4174,4006,7701,0000,0031,0210 



U 034 1 , 3 1 03 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 007 3 , 0000 

U 0342 , 3 103 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0074 , 0000 

U 0344, 3103,3770,0505,4334,4057,0700,0000,0075,0000 

U 0345 , 3 103 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0076 , 0000 

U 0347, 3103,3770,0505,4334,4057,0700,0000,0077,0000 



U 3103, 0002,4257,0503,4374,4004,1701,0000,0000,0376 
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4673 
4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
4692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4700 
4701 
4702 
4703 
4704 
4705 



.TOC 



"BYTE GROUP 



LOAD BYTE SUBROUTINE" 



CALL WITH: 

WORD IN BR 

POINTER IN AR 

P IN FE 

BYTE DISPATCH 
RETURN2 WITH BYTE IN AR 
LDB SCAD "SCAD/A, BYTE/BYTE5" 

7-BIT LDB " AD/D , DBUS/DBM, DBM/DP , DEST/A , A/BR , B/BR , LDB SCAD" 



= 000 
LDB 1 : 



GEN 17-FE, 
SCAD DISP, 
J/LDBSWP 



3T, 



GO SEE IF ALL THE BITS. 

ARE IN THE LEFT HALF 
GO TO LDBSWP & SKIP IF LH 



; HERE ARE THE 7-BIT BYTES 

=001 7-BIT LDB, SCADA/BYTE 1 , J/LDB7 

=010 7-BIT LDB, SCADA/BYTE2, J/LDB7 

=100 7-BIT LDB, SCADA/BYTE3, J/LDB7 

=101 7-BIT LDB, SCADA/BYTE4, J/LDB7 

=111 7-BIT LDB, SCADA/BYTE5, J/LDB7 



;FOR 7-BIT BYTES WE HAVE BYTE IN 6R 28-35 AND JUNK IN REST OF BR. 
; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT. 



LDB7: AD/ZERO, RSRC/DA, 

DBUS/DBM , DBM/ # , #/376 , 

A/BR, 

B/AR, 

DEST/AD*.5, 3T, 
RETURN [2] 



LH_ZERO, RH_D . AND . A 
D INPUT IS 376 
A IS BR 

PUT RESULT IN AR 
SHIFT RESULT 1 PLACE 
RETURN TO CALLER 
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U 0550, 3105,4443,00OO,4174,4007,070O,10O0,0O31,0000 
U 0552, 3104,3770,0505,4344,4007,0700,0000,0000,0000 

U 3104, 3105,4221,0005,4174,0007,0700,1000,0031,0220 



U 3105, 3106,3447,0505,4174,4007,0700,1020,0041,0010 
U 3106, 3107,3333,0003,4174,4007,0700, 1000,0031 ,7770 
U 3107, 3110,4222,0OOO,4174,40O7,0700,OOO0,O000,0000 



U 31 10, 3111 ,4224,0003,4174,4027,0700, 1020,0041 ,0010 
U 3111, 3112,4224,0003,4174,4027,0700,0000,0000,0000 
U 3112, 0002,4001,0503,4174,4004,1700,0000,0000,0000 
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4706 ; HERE FOR NORMAL BYTES 

4707 =00 

4708 LDBSWP: FE_~FE , 

4709 J/LDBSH 

4710 =10 [BR]_[BR] SWAP 
47.1 1 = 

4712 [BR]_0, HOLD RIGHT, 

4713 FE_-FE+S#, S#/220 

4714 LDBSH: [ BR ]_[BR ] * . 5 , 

4715 FE_FE+10, 

4716 MULT I SHIFT/1 

4717 READ [AR], FE_-S-10 

4718 Q_0 

4719 GEN MSK [AR] , 

4720 FE_FE+10, 

4721 MULT.I SHIFT/ 1 

4722 GEN MSK [AR] 

4723 [AR]_[BR] . AND.Q, RETURN 
4724 



; MAKE P NEGATIVE 
;JOIN MAIN LDB LOOP 
; SHIFT 18 STEPS 

;PUT ZERO IN LH 
; UPDATE FE 
; SHIFT RIGHT 
; UPDATE THE FE 
; FAST SHIFT 
; GET SIZE 
; CLEAR Q 

;PUT MASK IN (WIPEOUT AR) 

;COUNT UP ALL STEPS 

; FAST SHIFT 

;ONE MORE BIT , 

[2] 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 3 



MICRO 31(254) 
1 1 :07 4-JAN-1979 
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4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 



.NOBIN 
"BYTE GROUP 



TOC "BYTE GROUP -- DEPOSIT BYTE IN MEMORY " 
FLOW FOR DPB (NOT 7-BIT BYTE) 

FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT- 
S PLACES GIVING: 

ARX Q 
+ ? + 

111111111111 100000010000000000001 11111! 

+ I _ + 

!< >! 

S BITS 



;NOW THE AC IS LOAD INTO THE ARX AND BOTH THE ARX AND 
; ARE SHIFTED LEFT P BITS GIVING: 

+ j + 

!??????BBBBBBOOOOOO! 0000001 1111 1000000! 
+ j + 

< >< > < >< > 

JUNK BYTE MASK P BITS 



AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND 
THE BR WITH .NOT. TO ZERO THE BITS FOR THE BYTE 
AND AND ARX WITH Q TO MASK OUT THE JUNK THIS GIVES: 

ARX 

+ + 

! OOOOOOBBBBBBOOOOOO ! 
+ j 

AR 

+ r ■ + 

! DDDDDDOOOOOODDDDDD ! 
+ - + 

WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER. 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
1 1 :07 4- JAN- 1979 



U 0360, 31 15, 3333,0003, 4174,4007,0700, 1000,0031 ,7770 

U 0361, 3113,3770,0503,4334,4017,0700,0000,0041,0000 

U 0362, 3113,3770,0503,4334,4027,0700,0000,004 1,0000 

U 0364, 31 13,3770,0503,4334,4037,0700,0000,0041 ,0000 

U 0365, 31 13,3770,0503,4334,4047,0700,0000,0041 ,0000 

U 0367, 31 13,3770,0503,4334,4057,0700,0000,0041 ,0000 

U 3113, 31 14,3447, 1200,4174,4007,0700,0200,0003,0002 

U 3114, 0002,3333,0003,4175,5004,1701,0200,0000,0002 



U 3115, 3116,4222,0000,4174,4007,0700,0000,0000,0000 



U 3116, 3117,4224,0000,4174,4027,0700,1020,0041,0010 
U 3117,' 3120,4224,0000,4174,4027,0700,0000,0000,0000 
U 3120, 3121,3333,0003,4174,4007,0701,1000,0073,0000 
U 3121 , 3122,4443,0000,4174,4007,0700, 1000,0051 ,0770 

U 3122, 3123,4002, 1200,4174,4007,0700, 1000,0031 ,0000 
U 3123, 3124,3444,0404,4174,4007,0700,1020,0041,0010 



U 3124, 3125,7221,0003,4174,4007,0700,0000,0000,0000 
U 3125, 3126,4111,0503,4174,4007,0700,0000,0000,0000 
U 3126, 3127,4001,0404,4174,40O7,O700,0O0O,0O00,0OOO 



U 3127, 3113,3111, 0403 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 
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4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
'4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 
4807 
4808 
4809 
4810 
481 1 
4812 
4813 



.BIN 



;DEPOSIT BYTE SUBROUTINE 
; CALL WITH: 

; BYTE POINTER IN AR 

; BYTE TO STORE IN ARX 

WORD TO MERGE WITH IN BR 

(E) OF BYTE POINTER IN VMA 
; 7-BIT BYTE IN FE 

; BYTE DISPATCH 

; RETURN2 WITH BYTE IN MEMORY 

DPB SCAD "SCAD/A+B,SCADA/S#,SCADB/FE,S#/0" 

7-BIT DPB " AD/D , DEST/ A , A/BR , DBUS/DBM , DBM/DP , B/AR , DPB SCAD" 



=000 










DPB 1 : 


READ 


CAR], 


FE -S-10, J/DPBSLO 


=001 


7-BIT 


DPB, 


BYTE/BYTE 1 , 


J/DPB7 


=010 


7-BIT 


DPB, 


BYTE/BYTE2, 


• J/DPB7 


= 100 


7-BIT 


DPB, 


BYTE/BYTE3, 


J/DPB7 


= 101 


7 -BIT 


DPB, 


BYTE/BYTE4, 


J/DPB7 


= 111 


7-BIT 


DPB, 


BYTE/BYTE5, 


J/DPB7 


DPB7: 


[ MAG 3 


[MASK]*. 5, START 


WRITE 




MEM WRITE, 


MEM_[AR], RETURN [2] 



DPBSLO: 0_0 

GEN MSK [MAG] , 
FE_FE+10, 
MULTI SHIFT/1 
GEN MSK [MAG] 
READ [AR] , 3T, FE_P 
FE_FE . AND . S# , S#/0770 
0_Q. AND. [MASK] , 
FE__- FE 

[ARX]__[ARX]*2 LONG, 
FE_FE+10, 
MULTI SHIFT/1 
; AT THIS POINT WE HAVE DONE ALL 
; IN ARX AND THE MASK IS IN 0. 
[AR]_.NOT.Q 
[AR]_[AR] .AND. [BR] 
[ARX]_[ARX] . AND . Q 
[ AR ]_[ AR ] .OR. [ARX] , 
J/DPB7 



; CLEAR 

; GENERATE MASK IN Q (ZAP MAG) 

; COUNT STEPS 

; FAST SHIFT 

;ONE MORE BITS 

; AMOUNT TO SHIFT 

; MASK OUT JUNK 

; CLEAR BITS 36 AND 37 

; MINUS NUMBER OF STEPS 

; SHIFT BYTE AND MASK 

; COUNT OUT STEPS 

;FAST SHIFT 

THE SHIFTING WE NEED . THE BYTE IS 



KS10.MC1 [4, 311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 



U 3130, 1302,3770,0304,4344,4007,0700,2000,0071 ,001 1 

U 1 302 , 1 302 , 3447 , 0404 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 1303, 3131 ,4557,0404,4374,4007,0701 ,0000,0000,0176 



U 3131 , 3132,3771 ,0004,4374,0007,0700,0000,0000,0000 
U 3132, 3133, 3333 , 0004 ,7174, 4007 , 0700 , 0400 , OOOO , 022 1 



U 3133, 3134,4557,0305,4374,4007,0701,0000,0000,7700 
U 3134, 3135,3770,0505,4344,4007,0700,2000,0071,0003 
U 3 1 35 , 1 304 , 422 1 , 0005 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 
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4814 
4815 
4816 
4817 
4818 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 



TOC "BYTE GROUP ADJUST BYTE POINTER" 

IF/FULL 

FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE 
FOLLOWING FORMULA: 



( 



BYTES PER WORD = INT( 



) 

) + 
) 



( 36-P ) 

INT( ) 

( S ) 



P 

( S 

THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE: 

6 u JJ /n JJ /n/ l _ 12 ! ! 

P=18 AND S=12 

WE GET 3 BYTES/WORD IF THE BYTES FALL IN THE NATURAL PLACE: 
12 !\\\\\\\\\\\\! 12 

P=12 AND S=12 

;WE COME HERE WITH THE BYTE POINTER IN AR , AND ADJPTR 



ADJBP: 



[ARX]_[AR] SWAP, 
SC 9. 



ADJBPO: [ARX]_[ARX]* . 5, 
STEP SC, 
J/ADJBPO 

[ARX]_([ARX] . AND.#)*.5, 

3T, 

0/176 

[ARXJ_#, 

#/0, 

HOLD RIGHT 
WORK[ ADJP]_[ARX] 
[BR]_( [AR] . AND.#)*.5 f 
. 3T, 

0/007700 

[ BR ]_[BR ] SWAP, 

SC_3 

[BR]_0, 

HOLD RIGHT 



;MOVE SIZE OVER 
; READY TO SHIFT 

SHIFT P OVER 



SHIFT AND MASK 
WAIT 

6 BIT MASK 
CLEAR LH 



SAVE P 
START ON S 
EXTRACT S 

SHIFT 18 PLACES 

CLEAR LH 



KS10.MC1[4,311] 
SIMPLE .MIC[4 f 311] 



MICRO 31(254) 
1 1 :07 4 -JAN- 1979 



U 1 304 , 1 304 , 3447 , 0505 , 4174, 4007 , 0630 , 2000 , 00.60 , 0000 
U 1 305 , 1 306 , 3333 , 0005 ,7174, 4007 , 062 1 , 0400 , 0000 ,0222 



U 1306, 0660,3442,0400,4174,4007,0700,2000,0071,0042 
U 1307, 1404,3771 ,0003,7274,4007,0701 ,0000,0000,0223 



U 0660, 0370,3771,0003,4374,4007,0700,0010,0000,0000 
U 0662 , 3 1 36 , 3223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0224 



U 3136, 3137,3772, 0000 , 4370 , 4007 , 0700 , 0000 , 0000 , 0044 

U 3137, 3140,1662,0000,7274,4007,0701,4000,0000,0221 

U 3140, 3141 ,3771 ,0005,7274,4007,0701 ,0000,0000,0222 

U 3141, 0664,4443,0000,4174,4007,0700,2000,0071,0042 



U 0664, 0370,3771,0003,4374,4007,0700,0010,0000,0000 
U 0666 , 3142, 3333 , 0003 ,7174, 4007 ,0700 , 0400 , 0000 ,0225 

U 3142, 3143,3771,0003,4374,4007,0700,0000,0077,7777 



U 3143, 1310, 066 1 , 0005 , 7274 , 4007 ,0622 , 0000 , 0000 ,0224 



U 1310, 0570,0662,0000,0274,4007,0522,2000,0071,0042 
U 1311, 0555,4443,0000,4174,4467,0700,0000,0051,1000 
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4857 =0 

4858 ADJBP1: [ BR ]_[ BR ] * . 5 , ;SHIFT S OVER 
4859. STEP SC, ; . . 

4860 J/ADJBP1 ; . . 

4861 WORK[ADJS]_[BR] , ; SALT S AWAY 

4862 SKIP AD.EQ.O ;SEE IF ZERO 

4863 =0 0_EARX], . ;DIVIDE P BY S 

4864 SC_34., ; STEP COUNT 

4865 J/ADJBP2 ;SKIP NEXT WORD 

4866 [AR]_WORK[ADJPTR} , J/MOVE ;S=0 SAME AS MOVE 

4867 =0* 

4868 ADJBP2: [AR]_#, ; F I LL AR WITH SIGN BITS 

4869 #/0, ;POSITIVE 

4870 CALL [DIVSUB] ; GO DIVIDE 

4871 W0RK[ADJQ1 ]_Q ; SAVE QUOTIENT 

4872 Q_#, ;COMPUTE (36-P)/S 

4873 #/36., ; . . 

4874 HOLD LEFT ; SMALL ANSWER 

4875 0_0-WORK[ADJP] ; SUBTRACT P 

4876 [BR]_WORK[ADJS] ;DIVIDE BY S 

4877 SC_34. ;STEP COUNT 

4878 =0* [AR]_#, ; MORE SIGN BITS 

4879 #/0, ; .. 

4880 CALL [DIVSUB] ;G0 DIVIDE 

4881 W0RK[ADJR2]_[AR] ; SAVE REMAINDER 

4882 [AR]_#, ;ASSUME NEGATIVE ADJ 

4883 H/llllll ; EXTEND SIGN 

4884 AD/D+O, ; BR_( P/S )+ ( ( 36-P )/S ) 

4885 DEST/AD, ; 

4886 B/BR, ; . . 

4887 RAMADR/# , ; .. 

4888 DBUS/RAM, ; . . 

4889 WORK/AD JQ 1 , ; . . 

4890 4t, ; . . 

4891 SKIP AD.EQ.O ; SEE IF ZERO 

4892 =0 Q_0+AC, ; GET ADJUSTMENT 

4893 SC_j34., ; STEP COUNT 

4894 SKIP DPO, ; GO DO DIVIDE 

4895 4T, ;WAIT FOR DP 

4896 J/ADJBP3 ; BELOW 

4897 NO DIVIDE ;0 BYTES/WORD 
4898 



KS10.MC1[4,311] MICRO 31(254) 

SIMPLE. MIC[4, 31 1 ] 11:07 4-JAN-1979 



U 0570, 0571,3771,0003,4374,4007,0700,OOOO t OOOO,0000 

U 0571, 0370,3333,0005,7174,4007,0700,0410,0000,0226 

U 0573 , 3 144 , 3772 , 0000 , 4374 , 0007 , 0700 , 0000 , 0000 , 0000 

U 3144, 1312,3333, 0003 ,4174 ,4007 , 042 1 ,0000 , 0000 , 0000 



U 1312, 3146, 066 1 , 0005 , 7274 , 4407 , 070 1 , 0000 , 0000 , 0223 
U 1313, 3145, 1002 , 0700 , 4 1 70, 4007 , 0700 , 4000 , 0000 , 0000 
U 3145, 1312,0551 ,0303,7274,4007,0701 ,0000,0000,0226 
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4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
491 1 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
.4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 



WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE 
REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE 
QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW 
P FIELD IS COMPUTED BY: 



( 

NEW P = 36- ( ( R * S) + 
( 



( 36-P )) 
RMDR ( ---- )) 
( S )) 



WE NOW HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. DIVIDE TO GET 
WORDS TO ADJUST BY. 
=00 

ADJBP3: [AR]_#, .'POSITIVE ADJUSTMENT 

#/0. 

WORK[ADJBPW]_[BR] , ; SAVE BYTES/WORD & COMPUTE 

CALL [DIVSUB] ; AD J/ ( BYTES/WORD ) 

;WE NOW WANT TO ADJUST THE REMAINDER SO THAT IT IS POSITIVE 



= 11 



=0 

ADJBP4: 



#/0, 

HOLD RIGHT 



READ 
SKIP 



[AR], 
AD.LE.O 



; ONLY RIGHT HALF 



; ALREADY + 



AD/D+O, 
DEST/AD, 
B/BR, 
RAMADR/ # , 
DBUS/RAM , 
WORK/AD JPTR, 
INH CRY 1 8 , 
3T, 

J/ADJBP5 
Q_Q-1 , 
HOLD LEFT 

[AR]_[AR]+WORK[ ADJBPW] , 
J/ADJBP4 



; ADD TO POINTER AND STORE 



; RESULT 
;PTR IS 



TO BR 
IN RAM 



;JUST RH 
;WAIT FOR RAM 
;CONTINUE BELOW 
; NO- -MAKE Q SMALLER 

'; MAKE REM BIGGER 

;NOW HAVE + REMAINDER 



KS10.MC1[4, 311] 

SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :Q7 4- JAN- 1979 



U 3146, 3147,3441 ,0306,4174,4007,0700,2000,0071 ,0043 
U 3147, 0062,3772,0000,7274,4007,0701,0000,0000,0222 

U 0062, 3001,3446,0606,4174,4007,0700,0010,0000,0000 



U 0066 , 3 1 50 , 066 1 , 0003 , 7274 , 4007 , 070 1 , 0000 , 0000 ,0225 

U 3150, 3151,2555,0303,4374,4007,0701,4000,0000,0044 

U 3151, 3152,3770,0303,4344,4007,0700,2000,0071,0011 

U 31 52 , 1314, 377 1 , 0003 , 4370 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1314, 1314, 3445 , 0303 , 4 1 74 ,4007 , 0630, 2000, 0060 , 0000 

U 1315, 3153, 455 1 , 0505 ,4374 ,0007 , 0700 , 0000 , 0000 ,7777 

U 3153, 1400,31 13,0305,0174,4007,0700,0400,0000,0000 
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4937 


ADJBP5: 


[BRX] [AR], 


4938 




SC 35. 


4939 




WORK[ADJS]' 


4940 


=01 + 


[BRX] [BRX]*. 5 LONG 


4941 




CALL [MULSUB] 


4942 




AD/D+Q, 


4943 




DEST/AD, 


4944 




B/AR, 


4945 




RAMADR/ # , 


4946 




3T, 


4947 




DBUS/RAM, 


4948 




WORK/ AD JR2 


4949 




[AR] (#-[AR])*2, 


4950 




3T, 


4951 




#/36. 


4952 




[AR] [AR] SWAP, 


4953 




SC 9. 


4954 




[AR] #, 


4955 




#/0, 


4956 




HOLD LEFT 


4957 


=0 




4958 


ADJBP6 ; 


[AR] [AR]*2, 


4959 




STEP SC, 


4960 




J/ADJBP6 


4961 




[BR] [BR ] . AND . # , 


4962 




#/007777, 


4963 




HOLD RIGHT 


4964 




AC [AR] .OR. [BR] , 


4965 




J/DONE 


;4966 


. I FNOT/FULL 


;4967 






;4968 


ADJBP: 


UUO 


;4969 






4970 


. ENDI F/FULL 


4971 







COMPUTE R*S 
STEP COUNT 
GET S 

SHIFT OVER 

AR_(R*S)+RMDR(36-P)/S 



COMPUTE 36-AR 
AND START LEFT 

PUT THE POSITION BACK 

CLEAR JUNK FROM RH 

LOOP OVER ALL BITS 



; ALL DONE 

;N0 ADJBP IN SMALL 
; MICROCODE 



KS10.MC1[4,311] 
SIMPLE. MIC[4, 311] 



MICRO 31(254) 
1 1 :07 4-JAN-1979 
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4972 
4973 
4974 
4975 
4976 
4977 
4978 
4979 
4980 
4981 
4982 
4983 
4984 
4985 
4986 
4987 



.TOC 



.NOBIN 
"BLT " 



THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF 
THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE LAST WORD 
OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION 
BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING 
THE SOURCE BLOCK (IN THE LH), AND THE FIRST WORD FOLLOWING THE DEST- 
INATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE DESTINATION 
BLOCK, IT WILL BE A COPY OF THE LAST WORD OF THE SOURCE BLOCK. 

IN ADDITION, A SPECIAL-CASE CHECK is' MADE FOR THE CASE IN WHICH EACH 
WORD STORED IS USED AS THE SOURCE OF THE NEXT TRANSFER. IN THIS CASE, 
ONLY ONE READ NEED BE PERFORMED, AND THAT DATA MAY BE STORED FOR EACH 
TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP. 



; KS10.MC1[4 f 311] ^ MICRO 31(254) 

; SIMPLE. MIC[4, 311] 1 1 :07 4- JAN- 1979 



D 0251, 0000,1640,2100 



U 1 640 , 3154,3771, 0006 , 0276 , 6007 ,0700 , 0000 , OOOO , 0000 
U 3 1 54 , 1 3 1 6 , 3770 , 0604 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1316, 3664,3443,0400,4174,4007,0700,0210,0004,0712 

U 1317, 3155,4221, 0006 , 4 1 74 , 0007 , 0700 , 0000 , 0000 , 0000 

U 3155, 3156,2112,0306,4174,4007,0700,4000,0000,0000 

U 3 1 56 , 3157, 0001 , 0705 ,4174, 4007 , 0700, OOOO , OOOO , OOOO 

U 3157, 3160,3770,0505,4344,0007,0700,0000,0000,0000 

U 3160, 3161 ,0551 ,0505,0274,4407,0701 ,0000,0000,0000 

U 3161 , 1320,3771 ,0013,4370,4007,0700,0000,0000,0001 

U 1 320 , 3663 , 3440 , 0505 ,0174, 4007 , 0700 , 04 1 , OOOO , OOOO 



U 1321, 3162,0551,0405,4370,4007,0701,0000,0000,0001 
U 3162, 1322,21 13,0506,4174,4007,0331 ,4000,0000,0000 



U 1322, 



3165, 3443 , 0600 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 
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BLT 



4988 




.BIN 




4989 




. DCODE 




4990 


251 : 


I , J/BLT 




4991 




.UCODE 




4992 








4993 


1640: 






4994 


BLT: 


[BRX] AC 


FETCH THE AC (DEST IN RH) 


4995 




[ARX] [BRX] SWAP 


,COPY TO ARX (SRC IN RH) 


4996 


=0 


VMA [ARX], 


.ADDRESS OF FIRST WORD 


4997 




START READ, 




4998 




PXCT BLT SRC, 




4999 




CALL [CLARXL] 


•CLEAR THE LEFT HALF OF 


5000 




[BRX] 0, 


BOTH SRC AND DEST 


5001 




HOLD RIGHT 




5002 




[AR]-[BRX] 


NUMBER OF WORDS TO MOVE 


5003 




[BR] Q+1 


LENGTH +1 


5004 




[BR] [BR] SWAP, 


COPY TO BOTH HALFS 


5005 




HOLD RIGHT 




5006 




[BR] AC+[BR], 


FINAL AC 


5007 




INH CRY 18 


KEEP AC CORRECT IF DEST IS 777777 


5008 




STATE [BLT] 


SET PAGE FAIL FLAGS 


5009 


=0 


AC [BR] , 


STORE BACK IN AC 


5010 




CALL [LOADQ] 


LOAD FIRST WORD INTO Q 


501 1 




[BR] [ARX] +1000001 , 


SRC+1 


5012 




3T, 




5013 




HOLD LEFT 




5014 




[BR]-[BRX], 3T, 


IS THIS THE CORE CLEAR CASE 


5015 




SKIP ADR.EO-0 




5016 


=0 






5017 


BLTLP1 : 


VMA [BRX], 




5018 




START WRITE, 




5019 




PXCT BLT DEST, ; WHERE TO STORE 


5020 




U/BLTGO 




5021 ' 









o 

KS10.MCll4,31 1 ] 
SIMPLE. MIC[4, 31 1 ] 



MICRO 31(254) 
11 :07 4-JAN-1979 



U 1323, 3163,3443,0600,4174,4007,0700,0200,0003,0312 



U 3163, 1 324 , 3223 , 0000 ,4174, 4007 , 067 1 , 0200 , 0000 , 0002 
U 1324, 3166,4443, 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 1325, 1326,21 13,0603,4174,4007,0521 ,4000,0000,0000 

U 1 326 , 1400, 422 1 , 001 3 , 4 170, 4007 , 0700 , 0000 , 0000 , 0000 

U 1327, 1330,01 1 1 ,0704,4174,4007,0370,0000,0000,0000 

U 1330, 3163,01 1 1 ,0706,4170,4007,0700,0200,0003,0312 

U 1331, 3165,0111,0706,4170,4007,0700,0200,0003,0312 

U 3164, 1322,3772, 0000 , 4365 , 5007 , 0700 , 0200 , OOOO , 0002 

U 3165, 3166,3223,0000,4174,4007,0701 ,0200,0000,0002 

U 3 1 66 , 1332,2113, 0603 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 1332, 1 400 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1333, 3167,01 1 1 ,0706,4174,4007,0700,0000,0000,0000 



U 3167, 3164,01 1 1 ,0704,4170,4007,0700,0200,0004,0712 

U 3 1 70 , 3 1 7 1 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3171 , 3172,3771 ,0003,7270,4007,0701 ,0000,0000,0214 

U 3172, 1 1 00 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5051 
5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5065 
5066 
5067 
5068 
5069 
5070 
5071 
5072 
5073 



; CLEAR CORE CASE 

VMA_[BRX] , 

START WRITE, 

PXCT BLT DEST 
BLTCLR: MEM WRITE, 

MEM_Q, 

SKIP/-1 MS 
=0 d/BLTGOT 

[BRX]-[AR] , 

3T, 

SKIP DPO 
=0 END BLT, 

J/DONE 

[ARX]_[ARX]+1 , 
SKIP IRPT 
=0 VMA_[BRX]+1, 
LOAD VMA, 
PXCT BLT DEST, 
START WRITE, 
J/BLTCLR 
VMA_[BRX]+1 , 
LOAD VMA, 
PXCT BLT DEST, 
START WRITE, 
J/BLTGO 

; HERE FOR NORMAL BLT 
BLTLP: MEM READ, 

Q_MEM , 

U/BLTLP 1 
BLTGO: MEM WRITE, 

MEM_Q 
BLTGOT: [BRX]-[AR] , 

3T, 

SKIP DPO 
=0 END BLT, 

J/DONE 

[BRX]_[BRX]+1 
VMA_[ARX]+1 , 
LOAD VMA, 
PXCT BLT SRC, 
START READ, 
J/BLTLP 

; HERE TO CLEAN UP AFTER BLT 
BLT-CLEANUP: 

[AR]_[AR] SWAP 

[AR]_WORK[SV.BRX] , 

HOLD LEFT 

AC_[AR] , 

J/CLEANED 



; STORE WORD 

1 MS TIMER UP 

GO TAKE INTERRUPT 

BELOW E? 



;NO--STOP BLT 

;FOR PAGE FAIL LOGIC 

;YES--KEEP STORING 
; INTERRUPT 



; FETCH 

; STORE ^ 
;BELOW E? 

;NO--STOP BLT 

; UPDATE DEST ADDRESS 

;YES--MOVE 1 MORE WORD 

PAGE FAILS 

;PUT SRC IN LEFT HALF 

; STORE THE AC AND RETURN 



KS10.MC1 [4,31 1 ] 
FLT.MIC[4,31 1] 



MICRO 31(254) 
20:45 19-MAR-198.1. 



D 0140, 0701 , 1577, 1 100 

D 0142, 0702, 1577, 1700 

D 0143, 0703,1577,1700 

D 0144, 071 1 , 1577 , 1 100 

D 0145, 061 1 , 1577,0100 

D 0146, 0712, 1577, 1700 

D 0147, 0713, 1577, 1700 

D 0150, 0701 , 1576, 1 100 

D 0152, 0702,1576,1700 

D 0153, 0703,1576,1700 

D 0154, 071 1 , 1576, 1 100 

D 0155, 0611,1576,0100 

D 0156, 0712, 1576, 1700 

D 0157, 0713,1576,1700 



U 1 576 , 1 577 , 244 1 , 0303 ,4174 ,4007 , 0700 , 4000 , 0000 , 0000 



U 1577, 0670,3771,0005,0276,6006,7701,2000,0020,2000 



U 0670, 
U 0672, 
U 3173, 
U 3174, 
U 3175, 
U 1334, 
U 1335, 



1336, 
3173, 
3174, 
3175, 
1334, 
3176, 
3176, 



3333, 
3441 , 
3441 , 
3441 , 
3333. 
4551 , 
3551 . 



0005 
0304 
0503 
0405 
0003 
0303 
0303 



,4174, 
,4174, 
,4174, 
,4174, 
,4174, 
,4374, 
,4374, 



4007, 
4007, 
4007, 
4007, 
4007. 
0007, 
0007 



0520, 
0700, 
0700, 
0700, 
0520, 
0700, 
0700, 



0000, 
0000, 
2000 , 
2000, 
1000, 
0000, 
0000, 



0000, 
0000. 
0041 , 
0020, 
004 1 , 
0000 , 
0077, 



0000 
0000 
2000 
0000 
2000 
0777 
7000 



U 1336, 
U 1337, 



U 1340, 
U 1341, 



3176,4551, 0505 , 4374 , 0007 , 0700 ,0000 , 0000 , 0777 
3176,3551, 0505 , 4374 , 0007 , 0700 , 0000 , 0077 , 7000 



U 3176, 1340,4222, 0000 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



1 340 , 3446 , 0505 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 
0420,01 1 1 ,0503,4174,4003,4701 ,0000,0000,0000 
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FLOATING POINT FAD, FSB 



5074 .TOC "FLOATING POINT -- FAD, FSB" 

5075 

5076 . DCODE 

5077 140: FL-R, FL-AC, J/FAD 

5078 142: FL-RW , FL-MEM, J/FAD 

5079 FL-RW, FL-BOTH, J/FAD 

5080 FL-R, FL-AC, ROUND, J/FAD 

5081 FL-I, FL-AC, ROUND, J/FAD 

5082 FL-RW, FL-MEM, ROUND, J/FAD 

5083 FL-RW, FL-BOTH, ROUND, J/FAD 
5084 

5085 150: FL-R, FL-AC, J/FSB 

5086 152: FL-RW, FL-MEM , J/FSB 

5087 FL-RW, FL-BOTH, J/FSB 

5088 FL-R, FL-AC, ROUND, J/FSB 

5089 FL-I, FL-AC, ROUND, J/FSB 

5090 FL-RW, FL-MEM, ROUND, J/FSB 

5091 FL-RW, FL-BOTH, ROUND, J/FSB 

5092 .UCODE 
5093 

5094 ; BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN AR 

5095 ; SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE. 

5096 1576: 

5097 FSB: [AR]_-[AR] ; MAKE MEMOP NEGATIVE 

5098 

5099 1577: 

5100 FAD: [BR]_AC, SC_SC-EXP-1, 3T , SCAD DISP 

5101 =0* 

5102 FAS 1 : READ [BR], SKIP DPO, J/FAS2 ; BR .LE. AR 

5103 [ARX]_[AR] ; SWAP AR AND BR 

5104 [AR]__[BR], SC_EXP 

5105 [BR]_[ARX], SC_SC-FE-1 ; NUMBER OF SHIFT STEPS 

5106 READ [AR], FE_EXP, 2T , SKIP DPO 

5107 =0 [AR]_+SIGN, J/FAS3 

5108 [AR]_-SIGN, J/FAS3 
5109 

5110 =0 ;SIGN SMEAR BR AND UNNORMALIZE 

5111 FAS2: [BR]_+SIGN, J/FAS3 

5112 [BR]_-SIGN, J/FAS3 
5113 

5114 FAS3: Q_0, STEP SC 

5115 =0 

5116 FAS4: [BR]_[BR]*.5 LONG, STEP SC , ASHC, J/FAS4 

5117 [AR]_[AR]+[BR] , NORM DISP, J/SNORM 
5118 



o 

; KSIO.MCl'f 4,311] MICRO 31(254) 

; FLT.MIC[4,31 1] 20:45 19-MAR-1981 



D 


0160, 


0701 , 


1570 


, HOO 


D 


0162, 


0702, 


1570 


, 1 700 


D 


0163, 


0703, 


1570 


, 1700 


D 


0164, 


071 1 , 


1570 


, 1 100 


D 


0165, 


061 1 , 


1570 


,0100 


D 


0166, 


0712, 


1570 


, 1700 


D 


0167, 


0713, 


1570 


, 1700 



U 1 570 , 1 342 ,3771, 0006 , 0276 , 6007 , 052 1 , 1000 , 0040 , 2000 

U 1342, 3177,4551,0606,4374,0007,0700,0000,0000,0777 

U 1 343 , 3177, 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0077 , 7000 

U 3177, 0163,3442,0300,4174,4007,0700,2000,0071,0033 

U 0163, 3001,3446,0606,4174,4007,0700,0010,0000,0000 

U 0167, 3200 , 4662 , 0000 , 4370 , 4007 , 0700 , 0000 , 0077 , 7000 

U 3200, 3201,3441,0403,4174,4007,0700,1000/0041,0002 



U 



3201 , 0420,3446,0303,4174,4003,4701 , 1000,0041 , 1600 
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FLAOTING POINT-- FMP 



5119 


. TOC 


"FLAOTING POINT -- FMP" 






a o r\ 












O I <L 1 




. DCODE 








c; a o O 
O 1 


A CZf~\ ' 

lo'J. 


F L - R , 


FL- AC , 


J/FMP 


5123 


162: 


F L - RW , 


FL-MEM , 


J/FMP 


C A O A 




FL-RW , 


FL-BOTH , 


J/FMP 


5125 












O 1 zo 




FL-R, 


FL-AC, ROUND, 


J/FMP 






FL-I , 


FL-AC, ROUND, 


J/FMP 


5 1 28 




FL-RW, 


FL-MEM, ROUND, 


J/FMP 


5129 




FL-RW, 


FL-BOTH, ROUND, 


J/FMP 






.UCODE 








c; A o A 












5132 


1 5 70 : 










K A O O 

3 1 Ov5 


FMP : 


[BRX] 


AC, 




GET AC 


5 1 34 




FE SC+EXP, 3T, 




EXPONENT OF ANSWER 


5135 




SKIP. DPO 




GET READY TO SMEAR SIGN 


5 1 36 


=0 


[BRX] 


+SIGN, J/FMP1 




POSITIVE 


5137 




[BRX] 


-SIGN, J/FMP1 




NEGATIVE 


5 1 38 


FMP 1 : 


[AR] 


, SC 27. 




GET MEMORY OPERAND 


5 1 39 


=0 1 * 


[BRX] 


[BRX]*. 5 LONG, 




SHIFT RIGHT 


5 1 40 




CALL [MULSUB] 




MULTIPLY 


5141 




Q . AND . # , #/777000, 




WE ONLY COMPUTED 


5142 




HOLD LEFT 




27 BITS 


5143 




[AR] [ARX] , FE FE+2 




SET SHIFT PATHS 


5144 




[AR] [AR]*.5 LONG, 




SHIFT OVER 


5145 




FE' FE- 


200, 




ADJUST EXPONENT 


5146 




NORM DISP, J/SNORM 




NORMALIZE & EXIT 


5147 













KS10.MC1 [4,31 1] 
FLT.MIC[4,311] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 0170, 0701 , 1574, 1 100 

O 0172, 0702, 1574, 1700 

D 0173, 0703,1574,1700 

D 0174, 071 1 , 1574, 1 100 

D 0175, 061 1 , 1574,0100 

D 0176, 0712, 1574, 1700 

D 0177, 0713, 1574, 1700 



u 


1574, 


1 1 

vJ 




u 


1345, 


u 


1346, 


u 


1347, 


u 


3202, 


u 


3203, 


u 


3204, 


u 


1350, 


u 


1351 , 


u 


1352, 


u 


1353, 


u 


1354, 


u 


1355, 


u 


0144, 


u 


0145, 


u 


0154, 


u 


0155, 


u 


0156, 


u 


0157, 


u 


0177, 



1344, 344 1 , 0305 ,0174, 4007 , 062 1 , OOOO , 0000 , 0000 



1 346 ,3771, 0003 , 0276 , 6007 , 0520 , 1 000 , 0030 , 2000 
0555 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 , 007 1 , 1 000 

3202 ,4551, 0303 , 4374 , 0007 , 0700 , 0000 , 0000 , 0777 
3203 , 355 1 , 0303 , 4374 , 0007 , O700 , 0000 , 0077 , 7000 
3204,3441 ,0304,4174,4007,0700, 1000,0031 ,0200 
3204 ,2441, 0304 ,4174, 4007 , 0700 , 5000 , 003 1 , 0200 
1 350 , 3445 , 0506 ,4174, 4007 , 0520 , 0000 ,0000 , 0000 

1 352 ,2113, 0406 , 4 1 74 , 4007 , 03 1 1 , 4000 , 0000 , 0000 
1 35£> , 2445 , 0506 ,4174, 4007 ,0700 , 4000 ,0000 , 0000 

1354, 3447 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
0555 , 4443 , 0000 ,4174,4467, 0700 , 0000 , 007 1 , 1 000 



3666 , 3445 , 0303 ,4174, 4007 ,0700 , 00 10 , 0000 , 0000 
0144,2113, 0604 , 4 1 74 , 4007 , 042 1 , 4000 , 0000 , 0000 

3044 , 4222 , 0000 ,4174, 4007 , 0700 , 20 1 , 007 1 , 0033 
0144, 3447 , 0303 ,4174, 4007 , 0700 , 1000 , 004 1 , 000 1 

3205 , 3227 , 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

2056 , 3333 , 0003 ,4174, 4007 , 062 1 , 00 1 , OOOO , 0000 

2056 , 3333 , 0003 ,4174, 4007 , 062 1 , 0010 , OOOO , OOOO 
3205 , 3227 , 0003 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
3205 , 2227 , 0003 ,4174, 4007 , 0700 , 4000 , OOOO , OOOO 



U 3205 



1365,4222, OOOO ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
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5148 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5158 
5159 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 
5172 
5173 
5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 



.TOC 



170: 
172 : 



'FLOATING POINT 



FDV" 



1574: 

FDV: 

=0 



=0 

FDVO: 

FDV 1 
FDV2 
FDV3 
=0 

FDV4 : 
=0 

FDV5: 
=0 

FDV6 : 



=00100 
FDV7: 
=00101 
=01 100 
FDV8: 
=01 101 

=01 1 10 

=01 1 1 1 
=11111 

FDV9: 



. DCODE 








p J - p 


f I 
r l 


- AT 


• i / p n \/ 
u/ r u v 


FL-RW, 


FL 


-MEM , 


J/FDV 


FL-RW , 


FL 


-BOTH, 


J/FDV 


FL-R, 


FL 


-AC, ROUND, 


J/FDV 


FL-I , 


FL 


-AC, ROUND, 


J/FDV 


FL-RW, 


FL 


-MEM, ROUND, 


J/FDV 


FL-RW, 


FL 


-BOTH, ROUND, 


J/FDV 


.UCODE 








[BR]_[AR] , 


SKIP AD.EO-0, 


AC 



[AR]_AC, FE_SC-EXP, SKIP DPO, 

J/FDVO 
FL NO DIVIDE 

[AR]_+SIGN, J/FDV 1 
[AR]_-SIGN, J/FDV2 
[ARX]_[AR] ,FE_-FE+200, J/FDV3 
[ARX]_-[AR] , FE_-FE+200, J/FDV3 
[BRX] [BR]*2, SKIP DPO ; ABSOLUTE VALUE 



;COPY DIVSOR SEE IF O 

GET AC & COMPUTE NEW 

EXPONENT 
DIVIDE BY ZERO 



; COMPUTE 2*DVND 
; ABSOLUTE VALUE 



[ARX3-[BRX] , SKIP CRYO, 3T , J/FDV5 



; FLOATING NO DIV? 



[BRX]_-[BR]*2, J/FDV4 

[BRX]_[BRX]*.5, J/FDV6 
FL NO DIVIDE 

[ARj_[AR]*2, 
CALL [ SBRL ] 

[BRX]-[ARX], SKIP AD.LE.O 

Q_0, SC_27., CALL [DIVSGNJ 
[AR]_[AR]*.5, FE_FE+1, J/FDV7 

[AR]_Q*.5, J/FDV9 

READ [AR] , SKIP AD.EQ.O, 

CALL [SETSNJ 

READ [AR] , SKIP AD.EQ.O, 
CALL [SETSN] 
[AR]_Q*.5, J/FDV9 
[AR]_-Q*.5, J/FDV9 

Q_0, J/SNORMO 



; FORCE ABSOLUTE VALUE 

; SHIFT BACK ARX 

; UNNORMALI ZED INPUT 

DO NOT DROP A BIT 

AT FDV7+1 

IS ANSWER .LE. 1? 

;DIVIDE 

; SCALE DV ' END 

PUT ANSWER IN AR 

-VE ANSWER, LOOK AT RMDR 

SEE HOW TO NEGATE 
-VE ANSWER, LOOK AT RMDR 

SEE HOW TO NEGATE 
PUT ANSWER IN AR 
ZERO RMDR 

;G0 NORMALIZE 



KS10.MC1 [4,31 1 ] 
FLT.MIC[4,31 1 ] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 0127, 001 1 , 1616, 1 100 
D 0132, 0001,1621,2100 



U 1616, 1 356 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 
U 1356, 1360,2441 , 0305 , 4 1 74 , 4007 , 052 1 , 4000 , 0000 , 0000 
U 1357, 1 365 , 4222 , 0000 ,4174, 4007 , 0700 , 1000 , 007 f , 0233 



U 1 360 , 1362,4553, 0500 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 

U 1361, 3206,4222,0000,4174,4007,0700,1000,0071,0244 

U 1362, 3206,4222,0000,4174,4007,0700,1000,0071,0244 

U 1363, 1365,4222,0000,4174,4007,0700, 1000,0071 ,0233 



U 3206 , 1 364 , 3446 , 0303 ,4174, 4047 ,0700 , 2000 , 007 1 , 0006 



U 1 364 , 1 364 , 3446 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 
U 1365, 0420,3333,0003,4174,4003,4701,0000,0000,0000 



U 1621, 3207,3333,0003,4174,4007,0700,2000,0041,4000 

U 3207 , 3210,4222, 0000 ,0174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3210, 1366,3771 ,0003,0276,6007,0520, 1000,0040,2000 

U 1 366 , 1 365 ,4551, 0303 , 4374 , 0007 , 0700 , 0000 , 0000 ,0777 

U 1 367 , 1365,3551, 0303 , 4374 , 0007 , 0700 , 0000 , 0077 , 7000 
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FLOATING POINT FLTR, FSC 

; 5198 .TOC "FLOATING POINT -- FLTR, FSC" 

; 5199 

; 5200 . DCODE 

; 5201 127: R, FL-AC, ROUND, J/FLTR 

; 5202 132: I, FL-AC, J/FSC 

; 5203 .UCODE 

; 5204 

; 5205 1616: 

; 5206 FLTR: [ AR ] . AND . # , #/777000, 3T , SKIP ADL.EQ.O ; SMALL POS NUMBER? 

; 5207 =0 [BR]_-[AR], SKIP DPO, 3T , J/FLTR 1 ;NO--SEE IF MINUS 

; 5208 0_0, FE_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 

; 5209 =0 

; 5210 FLTR 1 : [BR]. AND. #, #/777000, 3T , 

; 5211 SKIP ADL.EQ.O, J/FLTR 1 A ; SMALL NEGATIVE NUMBER 

; 5212 Q_0, FE_S#, S#/244, J/FLTR2 ; LARGE POS NUMBER 

; 5213 =0 

; 5214 FLTR 1 A : Q_0, FE_S#, S#/244, J/FLTR2 ;BIG NUMBER 

; 5215 0_0, FE_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 

; 5216 ; AT THIS POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST 

; 5217 ; SHIFT 8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT 

; 5218 ; THIS IS THE RARE CASE ANYWAY. 

; 5219 FLTR2: [AR]_[AR]*.5 LONG, ASHC, SC_6 ; SHOVE OVER TO THE RIGHT 

; 5220 =0 

; 5221 FLTR3: [AR]_[AR]*.5 LONG, ASHC, ;SHIFT RIGHT 9 PLACES 

; 5222 STEP SC , J/FLTR3 ; SO IT WILL FIT 

; 5223 SNORMO: READ [AR], NORM DISP, J/SNORM ; NORMALIZE ANSWER 

; 5224 

; 5225 

; 5226 1621: 

; 5227 FSC: READ [AR], SC_SHIFT 

; 5228 0_0, AC ;DON'T SHIFT IN JUNK 

; 5229 [AR]_AC, FE_SC+EXP, SKIP DPO ;SIGN SMEAR 

; 5230 =0 [AR]_+SIGN, J/SNORMO 

; 5231 [AR]_-SIGN, J/SNORMO 

; 5232 



KS10.MC1[4,311] 
FLT.MIC[4,311 ] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 0122, 0701 , 1626, 1 100 
D 0126, 071 1 , 1626, 1 100 



U 1626, 0674,4222,0000,4174,4006,7701,0000,0041,1534 

U 0674, 0555,4443,0000,4174,4467,0700,0000,0041,1000 

U 0676, 0720,4443,O0O0,4174,4006,7701,200O,0O41,1544 

U 0720 , 1372, 4443 , 0000 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 0722, 3211 ,4443,0000,4174,4007,0700,2000,0031 ,0232 

U 321 1 , 1370,4443,0000,4174,4007,0630,2000,0060,0000 



U 1 370 , 1 370 , 3446 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 
U 1371, 0063,3447,0705,4174,4003,7700,0000,0000,0000 



U 1372, 1372, 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 1373, 0100,3440,0303,0174,4156,4700,0400,0000,0000 



U 0063 , 1374,3333, 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0073, 1514,01 1 1 ,0503,4174,4003,7700,0200,0003,0001 

U 1374, 0100,3440,0303,0174,4156,4700,0400,0000,0000 

U 1375, 1 376 , 3223 , OOOO ,4174, 4007 , 062 1 , 0000 , OOOO , 0000 

U 1376, 1514,01 1 1 ,0703,4174,4003,7700,0200,0003,0001 

U 1377, 0073,7441,1205,4174,4007,0700,0000,0000,0000 



KS10 MICROCODE V123, 1 MARCH, 1982 -- SEAN KEENAN, DON DOSSA Page 143 
FLOATING POINT -- FIX AND FIXR 



5233 


.TOC 


5234 




5235 




5236 


122: 


5237 


126: 


5238 




5239 




5240 


1626: 


5241 


FIX: 


5242 




5243 




5244 


=0* 


5245 




5246 


=0* 


5247 




5248 




5249 




5250 


=0 


5251 


FIXR : 


5252 




5253 




5254 




5255 


=0 


5256 


FIXL : 


5257 




5258 




5259 


=0*1 1 


5260 


FIXX: 


5261 


FIXX1 


5262 


=0 


5263 


FIXT: 


5264 




5265 


=0 


5266 




5267 




5268 




5269 





"FLOATING POINT 



FIX AND FIXR" 



. DCODE 
FL-R, 
FL-R, 
.UCODE 



FL-AC, 

FL-AC, ROUND, 



J/FIX 

J/FIX 



0_0, SCAD/A+B, SCADA/S#, 

S#/1534, SCADB/FE, 3T 
SCAD DISP 

SET AROV, J/NIDISP 

SC_FE+S#, S#/1544, 3T , 

STEP SC, J/FIXL 

SC_S#-FE, S#/232 

STEP SC 

[AR]__[AR]*.5 LONG, ASHC , 

STEP SC, d/FIXR 
[BR]_[0NE]*.5, B DISP, J/FIXX 



[AR]_[AR]*2, STEP SC , J/FIXL 
AC_[AR], NEXT INST 



READ [AR], SKIP DPO, J/FIXT 
[AR3_[AR]+[BR3 , FL-EXIT 

AC_[AR], NEXT INST 
READ 0, SKIP AD.EQ.O 
[AR]_[AR3+1 , FL-EXIT 
[BR]_.NOT. [MASK] , 
J/FIXX1 



CLEAR 0, SEE IF 
ANSWER FITS IN 
35 BITS. 
TOO BIG 

SCAD DISP ; NEED TO MOVE LEFT? 



NUMBER OF PLACES TO SHIFT 

RIGHT 
ALREADY THERE 

SHIFT BINARY POINT 

TO BIT 35.5 
WHICH KIND OF FIX? 



;SHIFT LEFT 

;WE ARE NOW DONE 



;FIX--SEE IF MINUS 
;FIXR--ROUND UP 

FIX & +, TRUNCATE 
NEGATIVE - -ANY FRACTION? 
YES- -ROUND UP 
MAYBE - -GENERATE .75 
ROUND UP . IF BIT 36 OR 
37 SET 



; KS10.MClt4.311] MICRO 31(254) 

; FLT.MIC[4,311] 20:45 19-MAR-1981 



U 0420, 0420,3444,0303,4174,4063,4701,1000,0041,1777 

U 042 1 , 2002 , 2222 , OOOO ,4174, 4007 , 03 1 1 , 4000 , 0000 , 0000 

U 0422, 0262,3333,0003,4174,4003,4701,0010,0000,0000 

U 0423, 2002,2222,0000,4174,4007,0311,4000,0000,0000 

U 0424, 0262,3447,0303,4174,4007,0700,1010,0041,0001 

U 0425, 2002,2222,0000,4174,4007,0311,4000,0000,0000 

U 0426, 0262,3447,0303,4174,4007,0700,1010,0041,0001 

U 0427 , 2002 , 2222 , 0000 ,4174, 4007 , 03 1 1 , 4000 , 0000 , 0000 

U 0430, 2000,3223,0000,4174,4007,0621,0000,0000,0000 

U 0436, 2001,3770,0303,4324,0457,0700,0000,0041,0000 



U 2000, 0420,3444,0303,4174,4063,4701,1000,0041,1777 
U 200 1 , 1514,4443, 0000 ,4174, 4003 , 7 700 , 0200 , 0003 , 000 1 
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5270 
5271 
5272 
5273 
5274 
5275 
5276 
5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 
5286 
5287 
5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5309 
5310 
531 1 
5312 



.TOC 



'FLOATING POINT -- SINGLE PRECISION NORMALIZE" 



NORMALIZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT 
4 SIGNALS: DP=0, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES 
ARE : 



DP=0 


DP08 


DP09 


DPOO 


ACTION TO TAKE 














SHIFT LEFT 











1 


NEGATE AND RETRY 








1 





ALL DONE 








1 


1 


NEGATE AND RETRY 





1 








SHIFT RIGHT 





1 





1 


NEGATE AND RETRY 





1 


1 





SHIFT RIGHT 





1 


1 


1 


NEGATE AND RETRY 


1 








LOOK AT Q BITS 



=0000 
SNORM 



ENTER HERE WITH UNNORMALIZED NUMBER IN AR ! . FE HOLDS THE NEW 
EXPONENT. CALL WITH NORM DISP 
;9-WAY DISPATCH 
[AR]_[AR]*2 LONG, DIV, FE_FE - 1 , NORM DISP, J/SNORM 
0_-0, SKIP CRYO, 3T, J/SNNEG 
READ [AR], NORM DISP, CALL [SROUND] 
Q_-Q, SKIP CRYO, 3T, J/SNNEG 
[ AR ]_[ AR ] * . 5 , FE_FE+ 1 , CALL [SROUND] 
Q_~Q, SKIP CRYO, 3T, J/SNNEG 
[AR]_[AR]*.5, FE_FE+ 1 , CALL [SROUND] 
Q_-0, SKIP CRYO, 3T, J/SNNEG 
READ Q, SKIP AD.EQ.O, J/SN0RM1 
=1110 [AR]_EXP, J/FLEX 

=0 

SNORM 1 : [AR]_[AR]*2 LONG, DIV, FE_FE - 1 , NORM DISP, J/SNORM 
FLEX : FL-EXIT 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

FLT.MIC[4,311] 20:45 19-MAR-1981 



U 2002, 0440,7441,0303,4174,4003,4701,0000,0000,0000 

U 2003, 0440,2441,0303,4174,4003,4701,4000,0000,0000 

U 0440, 0440,3444,0303,4174,4063,4701,1000,0041,1777 

U 0442, 0262,3333,0003,4174,4003,4701,0010,0000,0000 

U 0444, 0262,3447,0303,4174,4007,0700,1010,0041,0001 

U 0446, 0262,3447,0303,4174,4007,0700,1010,0041,0001 

U 0450, 0440,3444,0303,4174,4063,4701,1000,0041,1777 

U 0456, 0327,3770,0303,4324,0453,7700,0000,0041,0000 

U 0327, 2004,4553,1300,4374,4007,03-21,0000,0000,2000 

U 0337 , 2007 ,4111,1 203 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 

U 2004 , 3212, 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2005 , 2006 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2006 , 3212, 744 1 , 0303 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 2007, 3212,2441,0303,4174,4007,0700,4000,0000,0000 

U 32 1 2 , 1514, 422 1 , 00 1 3 , 4 1 74 , 4003 , 7700 , 0200 , 0003 , 000 1 



U 0262; 0407,3447,0705,4174,4003,7700,0000,0000,0000 
U 0266, 0262,3447,0303,4174,4007,0700,1000,0041,0001 

U 0407, 0016,4443,0000,4174,4004,1700,0000,0000,0000 

U 0417, 0302,0111,0503,4174,4003,4701,0000,0000,0000 

U 0302 , 00 1 6 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 0306, 0016,3447,0303,4174,4004,1700,1000,0041,0001 
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5313 =0 

5314 SNNEG: [ AR NOT . [ AR ] , NORM DISP, U/SNNORM ; NEGATE HIGH WORD 

5315 ; (NO CARRY) 

5316 [AR]__-[AR], NORM DISP, J/SNNORM ; NEGATE HIGH WORD (W/CARRY) 

5317 =0000 

5318 SNNORM: [AR]_[AR]*2 LONG, DIV, FE_FE - 1 , NORM DISP, U/SNNORM 

5319 =0010 READ [AR] , NORM DISP, CALL [SROUND] 

5320 =0100 [AR]_[AR]*.5, FE__FE+1, CALL [SROUND] 

5321 =0110 [AR]__[AR]*.5, FE_FE+ 1 , CALL [SROUND] 

5322 =1000 [AR]_[AR]*2 LONG, DIV, FE_FE- 1 , NORM DISP, J/SNNORM 

5323 =1110 [AR]_EXP, B DISP 

5324 = 

5325 =0111 TL [ FLG ] , FLG.SN/1, J/SNNOT 

5326 [AR]_[AR] .AND. [MASK] , ; CLEAR ANY LEFT OVER BITS 

5327 J/SNNOT 1 

5328 =0 

5329 SNNOT: [ AR ]_. NOT . [ AR ] , J/SNN0T2 

5330 READ Q, SKIP AD.EQ.O 

5331 =0 [AR]__.NOT. [AR] , J/SNN0T2 

5332 SNNOT 1 : [AR]_-[AR], J/SNN0T2 ; NORMAL NEGATE AND EXIT 

5333 SNNOT 2 : [FLG]_0, FL-EXIT 
5334 

5335 
5336 

5337 .TOC "FLOATING POINT ROUND ANSWER" 

5338 

5339 = *01* 

5340 SROUND: [ BR ]_[ ONE ] * . 5 , B DISP, J/SRND1 

5341 [AR]_[AR]*.5, FE_FE+1, J/SROUND ; WE WENT TOO FAR 

5342 =0111 

5343 SRND1: RETURN [16] ;NOT ROUNDING INSTRUCTION 

5344 [AR]_[AR]+[BR] , NORM DISP 

5345 = *01* RETURN [16] 

5346 [AR]_[AR]*.5, FE_FE+ 1 , RETURN [16] 
5347 



KS10.Mcf[4,31 1 ] 
FLT.MIC[4,31 1 ] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 01 10, 1 100, 1637, 1 100 
D 01 1 1 , 1 100, 1635, 1 100 



U 1635, 3213, 244 1 , 0404 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 
U 3213, 1637, 244 1 , 0303 ,4174, 4007 , 0700 , 0040 , 0000 , 0000 

U 1637, 3214,4557,0006, 1274,4007,0701 ,0000,0000, 1441 



U 3214, 20 10 , 3777 , 0005 , 0274 , 4007 , 052 1 , 2000 , 0020 , 2000 

U 2010, 2012,5547,0505,0374,4007,0631,0000,0077,7400 

U 2011, 2012,3547,0505,0374,4007,0631,0000,0077,7400 

U 2012, 2014,3442,0600,4174,4007,0700,0000,0000,0000 

U 2013, 3216,3771,0016,0276,6007,0700,2000,0041,2000 
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. 1 Uu 


"FLOATING POINT DFAD, 


DFSB" 










coc/-\ 




. DC0DE 






1 ID. 


DBL FL-R, J/DFAD 


coco • 
O O D Z 


111- 
ill. 


DBL FL-R, o/DFSB 


coco 
OoOo 




.UCODE 




Oo34 








5355 


, C IN I C K 


FROM A-READ CODE WITH: 






, r t/ 


EXP 




5357 




EXP 




5358 


' AR/ 


C(E) SHIFT RIGHT 2 PLACES 


5359 


; ARX/ 


C(E+1) SHIFTED RIGHT 1 PLACE 


5360 


1635 : 






536 1 


DF SB : 


[ARX] -[ARX] ; NEGATE LOW WORD 


5362 




[AR] -[AR]-.25, MULTI PREC/1 


coco 


1 C07 . 

1 Do / . 






cqc/i 
3004 


nc An • 


[BRX] (AC[ 1 ] .AND. [ MAG] ) * 


5, 3T ; GET LOW WORD 


c oc c 
OoOD 




[BR] AC*. 5, 3T, 


GET AC AND START TO SHIFT 


coco 
DoOD 




SC SC-EXP-1, 


NUMBER OF PLACES TO SHIFT 


Ooo / 




SKIP DPO 


SEE WHAT SIGN 


coco 

3v5UO 


-u 


[BR] +SIGN*.5, 3T, 


SIGN SMEAR 






AC, SKIP/SC, J/DFAS1 


SEE WHICH IS BIGGER 


c o i rs 




[BR] -SIGN*. 5, 3T, 


SIGN SMEAR 


5371 




AC, SKIP/SC, J/DFAS1 


SEE WHICH IS BIGGER 


5372 


=0 






5373 


DFAS1 : 


[BRX], 


AR IS BIGGER 


5374 




J/DFAS2 


ADJUST BR ! Q 


5375 




[TO] AC, 


BR IS BIGGER OR EQUAL 


5376 




SC EXP, 2T, J/DFAS3 


SET SC TO THAT EXPONENT 


5377 









K$10.MC1[4,311 J 
FLT.MIC[4,311] 



" MICRO 31(254) 
20:45 19-MAR-1981 



U 2014, 0153,3441,0516,4174,4007,0700,0010,0000,0000 
U 2015, 3215,3441,1605,4174,4007,0700,0000,0000,0000 
U 3215, 3221,0002,0400,4174,4007,0700,0000,0000,0000 



U 3216, 3217,3442,0400,4174,4007,0700,2000,0020,0000 

U 3217, 2016,3333,0016,4174,4007,0700, 1000,0041 ,2000 

U 2016, 0153,3441,0316,4174,4007,0700,0010,0000,0000 

U 2017, 3220,3441,1603,4174,4007,0700,0000,0000,0000 

U 3220 , 3221, 0002 , 0600 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3221, 3222,0116,0503,4174,4047,0700,0040,0000,0000 

U 3222, 0433,3444,0303,4174,4046,2700,0000,0000,0000 

U 0433, 3223,5111,1217,4174,4007,0700,0000,0000,0000 

U 0437, 0433,0222,0000,4174,4007,0700,4000,0000,0000 

U 3223, 3224,3444,0303,4174,4047,0700,1000,0041,1777 



U 3224, 3225,3444,0303,4174,4047,0700,1000,0041,1777 
U 3225 , 203 1 , 3002 , 1 700 , 4 1 70 , 4007 , 0700 , 0000 , OOOO , 0000 
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5378 ; HERE IF AR ! ARX IS GREATER THAN BR ! BRX 

5379 =0 

5380 DFAS2: [TO]_[BR], CALL [DFAD J ] ;ADUUST BRIO 

5381 [BR3_[T0] ;PUT ANSWER BACK 

5382 Q_Q+[ ARX], J/DFAS5 ; ADD LOW WORDS 

5383 

5584 ; HERE IS BR ! BRX IF GREATER THAN OR EQUAL TO AR ! ARX 

5385 DFAS3: Q_[ARX], ;SETUP TO SHIFT AR ! ARX 

5386 SC_SC-FE-1 ;COMPUTE ft OF PLACES 

5387 READ [TO], FE_EXP ; EXPONENT OF ANSWER 

5388 =0 [TO]_[AR], CALL [DFADJ] ;ADJUST AR ! 

5389 [AR]_[TO] ; PUT ANSWER BACK 

5390 Q_Q+[BRX], J/DFAS5 ; ADD LOW WORDS 
5391 

5392 ;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO 

5393 ; AR!Q 

5394 DFAS5: [ AR ]_( [ AR ] + [ BR ] ) * . 5 LONG, ; ADD HIGH WORDS 

5395 MULT I PREC/1, ASHC ; INJECT SAVED CRY2 
'5396 [AR]_[AR]*2 LONG, ;SHIFT BACK LEFT 

5397 ASHC/MUL DISP ;SEE IF WE LOST A 1 

5398 =1011 

5399 DFAS6: [ T 1 ]_[ T 1 ]. AND . NOT .[ MASK ] , J/DFAS7 

5400 Q__0+.25, J/DFAS6 

5401 DFAS7: [AR]_[AR]*2 LONG, ASHC, ; PUT IN GUARD BITS 

5402 FE_FE - 1 

5403 [AR]_[AR]*2 LONG, ASHC, 

5404 FE_FE - 1 

5405 0_[T1].0R.Q, HOLD LEFT, J/DNORMO 
5406 



KS10.MC1{4,311] 
FLT.MIC[4,311] 



MICRO 31(254) 
20:45 19-MAR-1981 



U 0153, 
U 0173, 
U 3226, 

U 3227, 



U 0472, 

U 0473, 
U 0476, 
U 0477, 



U 2020, 
U 2021 , 

U 0453, 
U 0457, 
U 3230, 



2057 , 3444 ,1616,4174, 4067 , 0700 , 00 1 , 0000 , 0000 
3226,3444,1616,4174, 4067 , 0700 , 0000 , 0000 , 0000 
3227 , 3444 ,1616,4174, 4067 , 0700 , 0000 , 0000 , 0000 

0472 , 3446 ,1616,4174, 4047 , 0630 , 2000 , 0060 , 0000 



0472 , 3446 ,1616,4174, 4046 , 2630 , 2000 , 0060 , 0000 

0453 , 322 1 , 00 1 7 , 4 1 74 , 4006 , 2700 , 0000 , 0000 , 0000 
2020 , 355 1,1313,4374, 0007 , 0700 , 0000 , 0000 , 2000 
2021 ,3551 , 1313,4374,0007,0700,0000,0000, 2000 



2020 , 3446 ,1616,4174, 4047 , 0630 , 2000 , 0060 , 0000 
0453 , 322 1 , 00 1 7 , 4 1 74 , 4007 , 0700 , 0000 , 0000 ,0000 

3230 , 3446 ,1616,4174, 4047 , 0700 , OOOO , 0000 , 0000 
0453, 3551, 1313, 4374, 0007 , 0700 , 0000 , 0000 , 2000 
0001 ,3446, 1616,4174,4044, 1700,0000,0000,0000 
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5407 ; SUBROUTINE TO ADJUST NUMBER IN TO!Q 

5408 ; RETURNS 1 WITH 

5409 ; T0!0 ADJUSTED 

5410 ; FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT) 

5411 ; T1 HAS Q TWO STEPS PRIOR TO BEING DONE 

5412 DFAD J "STEP SC , ASHC, MUL DISP" 
5413 

5414 =0**11 

5415 DFAD J : [T0]_[T0]*2 LONG, DIV, ;MOVE EVERYTHING 2 PLACES 

5416 CALL [CLRSN] 

5417 [T0]_[T0]*2 LONG, DIV 

5418 [T0j_[T0]*2 LONG, DIV 

5419 [T0]_[T0]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE 

5420 STEP SC 

5421 =1010 

5422 DFAD J 1 : [ T0]_[ TO] * . 5 LONG, ; UNNORMALI ZE TO ! 

5423 DFAD J , J/DFAD J 1 ; LOOP TILL DONE 

5424 DFADJ2: [T1]__Q, ; SAVE GUARD BITS 

5425 MUL DISP, J/DFAD J5 ; LOOK AT LAST BIT 

5426 [ FLG ]__[ FLG ] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J3 

5427 [FLG]_[FLG] .0R.#, FLG.SN/1, HOLD RIGHT, J/DFAD J4 
5428 

5429 =0 

5430 DFADJ3: [T0]_[T0]*.5 LONG, ASHC, STEP SC , J/DFAD J3 

5431 DFADJ4: [T1l_Q ; SAVE 2 GUARD BITS 

5432 =1011 

5433 DFADJ5: [ TO ]_[ TO ] * . 5 LONG, ASHC, J/DFAD J6 

5434 [FLG]_[FLG] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFADJ5 

5435 DFADJ6: [ TO ]_[ TO ] * . 5 LONG, ASHC, RETURN [1] 
5436 



KS10.MC1 [4,31 1 ] 
FLT.MIC[4,311] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 01 12, 1 105, 1631 , 1 100 



U 1631, 2022,3442,0400,4174,4007,0700,2000,0071,0006 



U 2022 , 2022 , 3444 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 

U 2023, 3231,3446,1200,4174,4007,0700,0000,0000,0000 

U 3231, 3232,4662,0000,4374,0007,0700,0000,0007,7777 

U 3232 , 3233,3221, 0005 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3233, 
U 0623, 



0623,4557,0006, 1274,4007,0700,0000,0000, 1441 
3002 , 3447 , 0606 ,4174, 4007 , 0700 , 20 10 , 007 1 , 0043 



U 0627 , 0730 , 3442 , 0300 ,4174, 4007 , 0700 , 2000 , 007 1 , 0043 

U 0730, 3003,4443,0000,4174,4007,0700,0010,0000,0000 

U 0734, 3234,3441,0416,4174,4007,0700,0000,0000,0000 

U 3234, 3235,3227,0004,4174,4007,0700,2000,0011,0000 



U 3235, 2024,3777,0006,0274,4007,0521,1000,0040,2000 

U 2024, 0732,5547,0606,4374,4007,0701,0000,0077,7400 

U 2025, 0732,3547,0606,4374,4007,0701,0000,0077,7400 

U 0732, 3003,3442,0500,4174,4007,0700,2010,0071,0043 

U 0736, 3236,3221,0017,4174,4007,0700,0000,0000,0000 

U 3236, 1012,01 1 1 , 1604,4174,4007,0700,0000,0000,0000 



U 1012, 3003,3442,0300,4174,4007,0700,2010,0071,0043 
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5437 


.TOC 


5438 




5439 




5440 


1 12 : 


5441 




5442 




5443 


; SAME 


5444 


1631 : 


5445 


DFMP: 


5446 


-0 


5447 


DFMP 1 


5448 




5449 




5450 




5451 




5452 




5453 


; BRX 


5454 




5455 




5456 


=0** 


5457 




5458 


; BRX 


5459 




5460 




5461 


=0** 


5462 




5463 




5464 




5465 


; BRX 


5466 




5467 




5468 




5469 




5470 


=0 


5471 




5472 




5473 


DFMP2 


5474 




5475 




5476 




5477 


; BRX 


5478 




5479, 


=0* * 


5480 




5481 





"FLOATING POINT -- DFMP " 

DAC, J/DFMP 



. DCODE 
DBL FL.-R 
.UCODE 



ENTRY CONDITIONS AS DFAD/DFSB 



G_[ARX], SC_6 



SHIFT MEM OP 8 PLACES 
SHIFT 



: [AR]_[AR]*2 LONG; ASHC 
STEP SC, J/DFMP1 
Q_Q* . 5 

Q_Q.AND.#, #/077777, HOLD RIGHT 

[BR]_Q ;COPY LOW WORD 

* BR ==> C(E+1 ) * C(AC+1 ) 

[BRX]_(AC[ 1 ] . AND. [MAG] )* . 5 ; GET LOW AC 
[BRX] [BRX]*. 5, SC 35., CALL [MULSB1] 



* ==> C(E) * C(AC+1 ) 

0_[AR], SC_35. 
CALL [MULTIPLY] 
[TO]_[ARX] 
[ARX]_Q*.5, SC_FE 

* BR ==> C(AC) * C(E+1 ) 



;G0 MULT NEXT HUNK 

;SAVE PRODUCT 
;PUT IN NEXT STEP 



[BRX]_AC*.5, 
FE_SC+EXP, 
SKIP DPO, 3T 

[BRX]_+SIGN*.5, 3T, J/DFMP2 
[BRX] -SIGN*. 5, 3T 



; PREPARE TO DO HIGH HALF 
; EXPONENT ON ANSWER 



Q__[BR], SC_35., CALL [MULTIPLY] ; GO MULTIPLY 
[T1]_Q ;SAVE FOR ROUNDING 

[ARX]_[ARX]+[TO] ; PREPARE FOR LAST MUL 



* ==> C(AC) * C(E) 

Q_[AR] , SC_35. , 
CALL [MULTIPLY] 



;D0 THE LAST MULTIPLY 



o 

; KS10.MCT[4,311] MICRO 31(254) 

; FLT . MIC ['4 , 3 1 1 ] 20:45 19-MAR-1981 



U 1016, 0243,3446,0403,4174,4007,0700,1000,0041,1576 



U 0243, 
U 0263, 
U 3237, 
3240, 
2026, 
2027, 
3241 , 
2030, 



2056, 
3237, 
3240, 
2026, 
2027, 
3241 , 
2030, 
2031 , 



3333, 
3444 
3447, 
4553, 
0002, 
3444, 
4553, 
0002, 



0017, 
0303, 
0705, 
1700, 
0500, 
0303, 
1700, 
0500, 



4174, 
4174, 
4174, 
4374, 
4174, 
4174, 
4374, 
4174, 



4007 

4047 

4007 

4007 

4007 

4047 

4007, 

4007 



0621 , 
0700, 
0700, 
0321 , 
0700, 
0700. 
0321 . 
0700, 



0010, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000. 



0000, 
0000, 
0000, 
0020, 
0000, 
0000, 
0010, 
0000, 



0000 
0000 
0000 

oooo 

0000 
0000 
0000 
0000 



U 2031, 0520,3333,0003,4174,4003,4701,1000,0041,0002 
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5482 ;0K, WE NOW HAVE THE PRODUCT IN ARX!Q!T1. ALL WE NEED TO DO 

5483 ; IS SOME BIT DIDDLES TO GET EVERYTHING IN THE RIGHT PLACE 

5484 [AR]_[ARX]*.5 LONG, ; SHI FT -THE ANSWER 

5485 FE_FE+S# , S#/1576 ;CORRECT EXPONENT 

5486 =0**11 READ [T1], SKIP AD.EQ.O, ;SEE IF LOW ORDER 1 

5487 CALL [SETSN] ; BITS AROUND SOMEPLACE 

5488 [AR]_[AR]*2 LONG, ASHC ;SHIFT LEFT 

5489 [BR]_[0NE]*.5 ;PLACE TO INSTERT BITS 

5490 TL [T1], #/200000 ; ANYTHING TO INJECT? 

5491 =0 0_0+[BR] ;YES--PUT IT IN 

5492 [AR]_[AR]*2 LONG, ASHC ; MAKE ROOM FOR MORE 

5493 TL [ T 1 3 , #/100000 ; ANOTHER BIT NEEDED 

5494 =0 0„0+[BR] ;YES--PUT IN LAST BIT 

5495 DNORMO: READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO 

5496 FE_FE+S# , S#/2, J/DNORM ; ADJUST FOR INITIAL SHIFTS 
5497 



KS10.MC1[4,311] 
FLT.MIC[4, 31 1 ] 



MICRO 31(254) 
20:45 19-MAR-1981 



D 01 13, 1 105, 1636, 1 100 

U 1636, 0132, 344 1 , 0406 ,4174, 4007 , 07 OO , 0000 , 0000 , 0000 

U 0132, 2057,4221,0017,4174,4007,0700,0010,0000,0000 

U 0133, 2032,3441 ,0305, 1174,4007,0421 ,0000,0000, 1441 



U 2032, 3244,4557,0004, 1274,4007,0700,0000,0000, 1441 
U 2033, 3242,7441 , 1717,4174,4007,0700,0000,0000,0000 
U 3242 , 3243 , 244 1 , 0606 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 



U 3243, 2032,2331,0005,1174,4007,0521,0040,0000,1441 



U 3244, 2034,3777,0003,0274,4007,0521 , 1000,0030,2000 

U 2034 , 2036 , 5547 , 0303 , 4374 , 4007 , 0701 , 0000, 0077 , 7400 

U 2035, 3245,7441 , 1717,4174,4007,0700,0000,0000,0000 

U 3245 , 3246 , 3547 , 0303 , 4374 , 4007 , 070 1 , 0000 , 0077 , 7400 

U 3246 , 3247 , 2442 , 0400 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 



U 3247 , 2037 , 2446 , 0303 ,4174, 4047 , 0700 , 0040 , 0000 , OOOO 



U 2036, 3043,3442,0400,4174,4007,0700, 

U 2037, 2040,2113,0305,4174,4007,0521, 

U 2040, 0555,4443,0000,4174,4467,0700, 

U 2041, 0724,3221,0004,4174,4007,0700, 

U 0724, 1264,4222,0000,4174,4007,0700, 

U 0726, 1054,3221 ,0016,4174,4007,0700, 



0010,0000,0000 
4000,0000,0000 
0000,0071 , 1000 
0000,0000,0000 
2010,0071 ,0032 
2000,0071 ,0043 



U 1054, 
U 1056, 



1 264 , 5002 , 0000 ,4174, 4007 , 062 1 , 00 1 O , 0000 , 0000 
3250 , 3446 , 1 200 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3250, 0513,3444,1616,4174,4046,2700,0000,0000,0000 



U 0513, 2042,3333,0017,4174,4007,0520, 1000,0031 ,0202 

U 0517, 0513,0222,0000,4174,4007,0700,4000,0000,0000 

U 2042, 0520,3441,1603,4174,4003,4701,0000,0000,0000 

U 2043, 0200,3441,1603,4174,4003,4701,0000,0000,0000 
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5498 . TOC "FLOATING POINT DFDV" 

5499 

5500 . DCODE 

5501 113: DBL FL-R, DAC , J/DFDV 

5502 .UCODE 

5503 1636: 

5504 DFDV: [BRX]_[ARX] ;COPY OPERAND (COULD SAVE TIME 

5505 ; WITH SEPERATE A-READ FOR DFDV) 

5506 =1**10 [T1]_0, CALL [CLRSN] ; CLEAR FLAG 

5507 [BR]_[AR], SKIP AD.LE.O, ;SEE IF POSITIVE 

5508 AC [ 1 ] ; WARM UP RAM 

5509 =0 

5510 DFDV1 : [ ARX ]_( AC [ 1 ] . AND . [ MAG ] ) * . 5 , ; POS I T I VE - -GET AC 

5511 U/DFDV2 ; AND CONTINUE BELOW 

5512 [ T 1 ]_. NOT . [ T 1 3 ;DV'SOR NEGATIVE (OR ZERO) 

5513 [BRX]_-[BRX] ; NEGATE LOW WORD 

5514 AD/-B-.25, B/BR, DEST/AD, ; NEGATE HIGH WORD 

5515 MULTI PREC/1, 3T, ; ADDING IN CRY02 

5516 SKIP DPO, AC[1], ;SEE IF STILL NEGATIVE 

5517 U/DFDV1 ; . . 

5518 DFDV2: [AR]_AC*.5, ; GET AC AND SHIFT 

5519 FE_SC-EXP, 3T , ;COMPUTE NEW EXPONENT 

5520 SKIP DPO ;SEE IF NEGATIVE 

5521 =0 [AR]_+SIGN*.5, 3T, U/DFDV3 .-POSITIVE 

5522 [T1 ]_.NOT. [T1 ] ; NEGATIVE OR ZERO 

5523 [AR]_-SIGN*.5, 3T ;SIGN SMEAR 

5524 Q_-[ARX3 ; NEGATE OPERAND 

5525 [AR3„(~[AR3-.25)*.5 LONG, ; NEGATE HIGH WORD 

5526 MULTI PREC/1, ;USE SAVED CARRY 

5527 ASHC, J/DFDV4 ; CONTINUE BELOW 

5528 =0 

5529 DFDV3: Q_[ARX3, ;COPY OPERAND 

5530 CALL [ DDI VS 3 ;SHIFT OVER 

5531 DFDV4: [AR3~[BR3, 3T , SKIP DPO ;SEE IF OVERFLOW 

5532 =0 FL NO DIVIDE 

5533 [ARX3_0 ; START DIVISION 

5534 =0* Q_0, SC_26., CALL [DBLDIV3 

5535 [T03_0, SC_35. 

5536 =0* 0_0 . AND . NOT . [ MAG 3 , ;SEE IF ODD 

5537 SKIP AD.EQ.O, ;SKIP IF EVEN 

5538 CALL [ DBLDI V 3 ; GO DIVIDE 

5539 Q_Q*.5 ; MOVE ANSWER OVER 

5540 = 

5541 [T03_[T03*2 LONG, ASHC, ; DO FIRST NORM STEP 

5542 MUL DISP ; SEE IF A 1 FELL OUT 

5543 =1011 

5544 DFDV4A: READ [T1], SKIP DPO, ; SHOULD RESULT BE NEGATIVE 

5545 FE_S#-FE, S#/202, ;CORRECT EXPONENT 

5546 J/DFDV4B ; LOOK BELOW 

5547 0_0+.25, J/DFDV4A ; PUT BACK THE BIT 

5548 =0 

5549 DFDV4B: [AR3_[T03, NORM DISP, U/DNORM ;PLUS 

5550 [AR3_[T03, NORM DISP, J/DNNORM ;MINUS 
5551 



KS10. MCI [4,31 1 3 
FLT.MIC[4,311] 



MICRO 31(254) 
20:45 19-MAR-1981 



U 0520, 0520,3444,0303,4174,4043,4701,1000,0041,1777 

U 052 1 , 2046 ,4553,1 300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 2000 

U 0522, 0322,3333,0003,4174,4003,4701,0010,0000,0000 

U 0523, 2046,4553, 1300,4374,4007,0321 ,0000,0000,2000 

U 0524, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 0525, 2046,4553,1300,4374,4007,0321,0000,0000,2000 

U 0526, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 0527, 2046,4553,1300,4374,4007,0321,0000,0000,2000 

U 0530 , 3252 , 4002 , 0000 ,4174, 0007 , 0700 , 0000 , 0000 , OOOO 

U 0536, 3251,4221,0013,4174,4007,0700,0000,0000,0000 



U 3251 , 1515, 4113, 0400„1174, 4007, 0700, 0400, 0000, 1441 



U 3252, 2044,3223,0000,4174,4007,0621,0000,0000,0000 



U 2044, 
U 2045, 



0520,3444,0303,4174,4043,4701 , 1000,0041 , 1777 
1515,3440,0303, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1441 
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; 5552 .TOC "FLOATING POINT DOUBLE PRECISION NORMALIZE " 

; 5553 

; 5554 ; NORMAL I ZE AR ! Q 

; 5555 ; DNORMO : READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO 

; 5556 ; FE_FE+S# » S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS 

; 5557 =0000 

; 5558 DNORM: [AR]_[AR]*2 LONG, ;SHIFT LEFT 

; 5559 FE_FE - 1 , ASHC, ; ADJUST EXPONENT 

; 5560 NORM DISP, J/DNORM ; TRY AGAIN 

; 5561 TL [ FLG ] , FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

; 5562 READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR 

; 5563 CALL [DROUND] ; AND ROUND ANSWER 

; 5564 TL [FLG], FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

; 5565 [AR]_[AR]*.5 LONG, ASHC, 

; 5566 FE_FE+ 1 , CALL [DROUND] 

; 5567 TL [FLG], FLG.SN/1, J/DNEG ; RESULT IS NEGATIVE 

; 5568 [AR]__[AR]*.5 LONG, ASHC, 

; 5569 FE_FE+ 1 , CALL [DROUND] 

; 5570 TL [FLG], FLG.SN/l, J/DNEG ; RESULT IS NEGATIVE 

; 5571 Q_[ MAG ] . AND . , ; H I GH WORD IS ZERO 

; 5572 HOLD RIGHT, J/DNORM 1 ; GO TEST LOW WORD 

; 5573 =1110 [FLG]_0 ;[122] CLEAR FLAG WORD 

; 5574 = 

; 5575 AC[ 1 ]_[ARX] . AND. [MAG] , ; STORE LOW WORD 

; 5576 J/STAC ; GO DO HIGH WORD 

; 5577 

; 5578 

; 5579 DN0RM1: READ 0, SKIP AD.EQ.O ; TEST LOW WORD 

; 5580 =0 [AR]_[AR]*2 LONG, ; LOW WORD IS NON-ZERO 

; 5581 FE_FE - 1 , ASHC, ; AD JUST EXPONENT 

; 5582 NORM DISP, J/DNORM ; KEEP LOOKING 

; 5583 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO 

; 5584 



/ 



KS 1 . MC 1 [ 4 , 3 1 1 ] 
FLT.MIC[4,311] 



MICRO 31(254) 
20:45 19-MAR-1981 



U 2046 , 3253 , 7222 , 0000 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
U 2047 , 2050 , 2222 , 0000 ,4174, 4007 , 05 1 1 , 4000 , 0000 , 0000 
U 3253, 2050,4221,0013,4174,4007,0700,0000,0000,0000 



U 2050, 0200,7441,0303,4174,4003,4701,0000,0000,0000 
U 2051, 0200,2441,0303,4174,4003,4701,4000,0000,0000 



U 0200, 0200,3444,0303,4174,4043,4701,1000,0041,1777 

U 0202, 0322,3333,0003,4174,4003,4701 ,0010,0000,0000 

U 0204, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 0206, 0322,3446,0303,4174,4047,0700,1010,0041,0001 

U 02 1 , 3256 , 4002 , 0000 ,4174, 0007 , 0700 , 0000 ,0000 , 0000 

U 0216, 0610,4111,1204,4174,4007,0700,0000,0000,0000 

U 0610, 3257,4111,0004,4174,4007,0700,0010,0000,0000 

U 06 1 2 , 3254 , 6 1 1 1 , 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 0613, 2052,2441,0404,4174,4007,0561,4000,0000,0000 

U 3254 , 2052 , 422 1 , 00 1 3 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , OOOO 

U 2052 , 3255,7333, 0003 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 

U 2053 , 3255 , 2443 , 0300 ,0174, 4007 , 070 1 , 4400 , 0000 , 0000 

U 3255, 0100,4113,0400,1174,4156,4700,0400,0000,1441 

U 3256 , 2054 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2054, 0200,3444,0303,4174,4043,4701,1000,0041,1777 

U 2055, 1515,3440,0303, 1.174,4007,0700,0400,0000, 1441 
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5585 ; HERE TO NORMALIZE NEGATIVE D.P. RESULTS 

5586 =0 \ 

5587 DN'EG: Oj.NOT.Q, J/DNEG1 ;ONES COMP 

5588 Q_-Q, SKIP CRY2, J/DNEG2 

5589 DNEG1: [FLG]_0 

5590 =0 x 

5591 DNEG2: [ AR ]_. NOT . [ AR ] , ; NO CARRY 

5592 NORM DISP, J/DNNORM ; GO NORMALIZE 

5593 [AR]_-[AR], ; CARRY 

5594 NORM DISP, J/DNNORM ; NORMALI ZE 
5595 

5596 =000* 

5597 DNNORM: [AR]_[AR]*2 LONG, ;SHIFT 1 PLACE 

5598 FE_FE- 1 , ASHC, ; ADJUST EXPONENT 

5599 NORM DISP, J/DNNORM ; LOOP TILL DONE 

5600 =001* READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR 

5601 CALL [DROUND] ; AND ROUND ANSWER 

5602 =010* [AR]_[AR]*.5 LONG, ASHC, 

5603 FE_FE+1, CALL [DROUND] 

5604 =01*1* [AR]_[AR]*.5 LONG, ASHC, 

5605 FE_FE+ 1 , CALL [DROUND] 

5606 =100* 0_[MAG] . AND.Q, ; HIGH WORD IS ZERO 

5607 HOLD RIGHT, J/DNNRM1 ; GO TEST LOW WORD 

5608 =111* [ARX]_[ARX] .AND. [MASK] ; REMOVE ROUNDING BIT 

5609 = 

5610 =00 [ARX]__[ARX] . AND. [MAG] , ;ALSO CLEAR SIGN 

5611 CALL [CHKSN] ;ONES COMP? 

5612 =10 [ ARX ]__[ ARX ] . XOR . [MAG ] , ;YES--ONES COMP 

5613 J/DNN1 ;CONTINUE BELOW 

5614 =11 [ARX]_-[ARX] , 3T , ; NEGATE RESULT 

5615 SKIP CRY 1 , J/DNN2 

5616 = 

5617 DNN1 : [FLG]_0 ; CLEAR FLAG 

5618 =0 

5619 DNN2: AC_. NOT . [ AR ] , J/DN0RM2 

5620 AC_-[AR], 3T 

5621 DN0RM2: AC [i ]_[ ARX ] . AND . [MAG] , ; STORE LOW WORD 

5622 NEXT INST ; ALL DONE 
5623 

5624 DNNRM1: READ 0, SKIP AD.EQ.O ; TEST LOW WORD 

5625 =0 [AR]_[AR]*2 LONG, ; LOW WORD IS NON-ZERO 

5626 FE_FE-1 f ASHC, ; AD JUST EXPONENT 

5627 NORM DISP, J/DNNORM ; KEEP LOOKING 

5628 AC[1]_[AR], J/STAC ;WHOLE ANSWER IS ZERO 
5629 



MICRO 31(254) 
20:45 19-MAR-1981 



KS10.MC1[4,311] 

FLT.MIC[4,31 1 ] 



U 3257, 0002,4553,1300,4374,4004,1321,0000,0000,2000 



U 2056, 0023,3551,1313,4374,0004,1700,0000,0000,2000 
U 2057, 0023,5551,1313,4374,0004,1700,0000,0000,2000 



U 0322, 0462,0007,0704,4174,4007,0511,0000,0000,0000 

U 0326, 0322,3446,0303,4174,4047,0700,1000,0041,0001 

U 0462, 0016,3770,0303,4324,0454,1700,0000,0041,0000 

U 0463, 0462,0441,0303,4174,4003,4701,4000,0000,0000 

U 0466, 0462,3447,0303,4174,4007,0700,1000,0041,0001 
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5630 CHKSN: TL [ FLG ] , FLG.SN/1, RETURN [2] 
5631 

5632 ; SUBROUTINE TO SET/CLEAR FLG.SN 

5633 ; CALL WITH: 

5634 ; CALL [ SETSN ] , SKIP IF WE SHOULD CLEAR 

5635 ; RETURNS 23 

5636 =0 

5637 SETSN: [ FLG ]_[ FLG ] . OR . # , FLG.SN/1, HOLD RIGHT, RETURN [23] 

5638 CLRSN: [ FLG]_[ FLG] . AND . NOT . # , FLG.SN/1, HOLD RIGHT, RETURN [23] 

5639 
5640 

564 1 ; SUBROUTINE TO ROUND A FLOATING POINT NUMBER 

5642 ; CALL WITH: 

5643 ; NUMBER IN AR ! AND NORM DISP 

5644 ; RETURNS 16 WITH ROUNDED NUMBER IN ARtARX 

5645 ; 

5646 =*01* 

5647 DROUND: [ ARX ]_( 0+ 1 ) * . 5 , ; ROUND AND SHIFT 

5648 SKIP CRY2, ;SEE IF OVERFLOW 

5649 J/DRND1 ; COMPLETE ROUNDING 

5650 [AR]_[AR]*.5 LONG, ;WE WENT TOO FAR 

5651 FE_FE+ 1 , ASHC, J/DROUND ;SHIFT BACK AND ROUND 

5652 = *010 

5653 DRND1: [AR]_EXP, RETURN [16] ; NO OVERFLOW 

5654 =011 [AR]_[AR]+.25, ; ADD CARRY (BITS 36 AND 37 

5655 ; ARE COPIES OF BITS) 

5656 NORM DISP, ;SEE IF OVERFLOW 

5657 J/DRND1 ; . . 

5658 =110 [AR]_[AR]*.5, ;SHIFT RIGHT 

5659 FE_FE+1, ; KEEP EXP RIGHT 

5660 J/DRND1 ; ALL SET NOW 



5661 = 
5662 



KS10.MC1[4,311] MICRO 31(254) 

EXTEND . MIC [ 4 , 3 1 1 ] 15:06 16-JULY-1981 



D 


0001 , 


0001 , 


1740,2100 


D 


0002 , 


0002 , 


1 / 4U , 2L ?UO 


D 


0003 , 


0003, 


1740,2100 


D 


0004, 


0002, 


1741 ,2100 


D 


0005, 


0005, 


1740,2100 


D 


0006, 


0006, 


1740,2100 


D 


OOU / , 


UW f , 


I / 4U , Z l UU 


D 


0010, 


0001 , 


1742,2100 


D 


001 1 , 


0004, 


1742,2100 


D 


0012, 


O0O1 , 


1743,2100 


D 


0013, 


0000, 


1743,2100 


D 


0014, 


0001 , 


1744,2100 


D 


0015, 


oooo, 


1744,2100 


D 


0016, 


0002, 


1744,2100 


D 


0017, 


0003, 


1744,2100 


D 


0020, 


0000, 


1746,2100 


D 


0021 , 


oooo, 


1747,2100 


D 


0022, 


0000, 


1750,2100 


D 


0023, 


oooo, 


1751 ,2100 


D 


0024, 


0001 , 


1751 ,2100 


D 


0025, 


0002, 


1751 ,2100 


D 


0026, 


0004, 


1751 ,2100 


D 


0027, 


0010, 


1751 ,2100 
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5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
5685 
5686 
5687 
5688 
5689 
5690 
5691 
5692 
5693 



. TOC 



001 : 



"EXTEND ' 



. DCODE 



DISPATCH ROM ENTRIES" 



010: 



014: 



020: 



SJCL, 


J/L-CMS 




jUUl , 






SJCLE, 


J/L-CMS 




B/2, 


J/L-EDIT 




SJCGE, 


J/L-CMS 




SJCN, 


J/L-CMS 




S JCG 


• J/1 -cm<; 




B/1, 


J/L-DBIN 


CVTDBO 


B/4, 


J/L-DBIN 


CVTDBT 


B/1, 


J/L-BDEC 


CVTBDO 


B/0, 


J/L-BDEC 


CVTBDT 


B/1, 


J/L-MVS 


MOVSO 


B/0, 


J/L-MVS 


MOVST 


B/2, 


J/L-MVS 


MOVSLJ 


B/3, 


J/L-MVS 


MOVSRJ 




J/L-XBLT 






J/L-SPARE-A 






J/L-SPARE-B 




B/0, 


J/L-SPARE-C 




B/1, 


J/L-SPARE-C 




B/2, 


J/L-SPARE-C 




B/4, 


J/L-SPARE-C 




B/10, 


J/L-SPARE-C 





.UCODE 



KS10.MC-Tf4.311] MICRO 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16-JULY-1981 



U 1740, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1741, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1742, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1743, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1744, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1746, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1747, 0400,4751,1203,437,4,4007,0700,0000,0000,0040 

U 1750, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 1751, 0400,4751,1203,4374,4007,0700,0000,0000,0040 
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Page 156 



5694 
5695 
5696 
5697 
5698 
5699 
5700 
5701 
5702 
5703 
5704 
5705 
5706 
5707 
5708 
5709 
5710 
571 1 
5712 
5713 
5714 
5715 



LUUO 



LUUO 



LUUO 



1740: 

L-CMS: LUUO 
1741 : 
L-EDIT 
1742: 
L-DBIN 
1743 : 
L-BDEC 
1744: \ 
L-MVS: LUUO 
1746: \ 
L-XBLT: LUUO 
1747: 

L-SPARE-A 
1750: 

L-SPARE-B 
1751 : 

L-SPARE-C 



LUUO 



LUUO 



LUUO 



; NOTE : WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE 
AT EXTEND DOES A RANGE CHECK. 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

EXTEND. MIC[4, 311] 15:06 16- JULY- 1981 



D 0123, 0000,1467,3100 

U 1467, 1062,3771, 0005 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1062, 3556,4553,0500,4374,4007,0321,0010,0076,0740 

U 1066, 3260,4521,0206,4374,4007,0700,0000,0000,0740 

U 3260, 3261 ,3111 ,0605,4174,0417,0700,0000,0000,0000 

U 326 1 , 3262 , 3333 , 0005 ,4174,4217, 0700 , 0000 , 0000 , 0500 

U 3262 , 3263 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0240 

U 3263, 0170,4443,0000,2174,4006,6700,0000,0000,0000 

U 0170, 0172,0551,0505,2270,4007,0700,0000,0000,0000 

U 0172, 0556,5741,0505,4174,4003,7700,0200,0000,0010 

U 0174, 3264,0551,0505,2270,4007,0700,0200,0004,0512 

U 0176, 3264,3443,0500,4174,4007,0700,0200,0004,0512 

U 3264, 3263,3771 ,0005,4361 ,5217,0700,0200,0000,0502 



U 0556, 3400,3333,0005,7174,4001,2700,0400,0000,0241 

U 0557 , 2060 , 3333 , 0005 , 4174 , 4007 , 0530 , 0000 , OOOO , 0000 

U 2060, 3400,3333,0005,7174,4001,2700,0400,0000,0241 

U 2061, 0556,3771,0005,4374,0007,0700,0000,0077,7777 
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EXTEND •-- INSTRUCTION SET DECODING 

5716 .TOC "EXTEND -- INSTRUCTION SET DECODING" 

5717 « 

5718 ; EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES 

5719 ; 1740-1747 IF NOT UNDER EXTEND 

5720 ; 3740-3747 IF UNDER EXTEND 
5721 

5722 . DCODE 

5723 123: I, READ/1, J/ EXTEND 

5724 .UCODE 
5725 

5726 1467: 

5727 EXTEND: MEM READ, [BR ]_MEM ; FETCH INSTRUCTION 

5728 =0** TL [BR], #/760740, ; IN RANGE 0-17 (AND AC#=0) 

5729 CALL [BITCHK] ; TRAP IF NON-ZERO BITS FOUND 

5730 [ BRX ]_[HR 3 - AND . # CLR RH, ;SPLIT OUT AC NUMBER 

5731 #/000740 ; FROM EXTEND INSTRUCTION 

5732 [BR]__[BR] .OR. [BRX] , ; LOAD IR AND AC # 

5733 HOLD RIGHT, LOAD IR ; .. 

5734 READ [BR], LOAD BYTE EA , ; LOAD XR # 

5735 J/EXTEAO ; COMPUTE E1 
5736 

5737 EXTEAO: WORK [ E0]_[ AR ] 

5738 EXTEA1: EA MODE DISP 

5739 =100* 

5740 EXTEA: [ BR ]__[ BR ] +XR 

5741 EXTDSP: [BR]_EA FROM [BR], LOAD VMA , 

5742 B DISP, J/EXTEXT 

5743 [BR]_[BR]+XR, START READ, PXCT EXTEND EA, LOAD VMA, J/EXTIND 
-5744 VMA_[BR], START READ, PXCT EXTEND EA 

5745 

5746 EXTIND: MEM READ, [BR]__MEM, HOLD LEFT, LOAD BYTE EA, J/EXTEA 1 
5747 

5748 ; HERE TO EXTEND SIGN FOR OFFSET MODES 

5749 =1110 

5750 EXTEXT: WORK [ E 1 ]_[ BR ] , ; SAVE E1 

5751 DISP/DROM, J/3400 ; GO TO EXTENDED EXECUTE CODE 

5752 READ [BR], SKIP DP18 ; NEED TO EXTEND SIGN 

5753 =0 W0RK[E1 ]_[BR] , ;POSITIVE 

5754 DISP/DROM, J/3400 

5755 [BR]_#, #/777777, HOLD RIGHT, ; NEGATIVE 

5756 J/EXTEXT 
5757 



v y 
KS10.MC1[4,311 J 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-JULY-1981 



U 3744, 
U 3754, 

U 2062, 
U 2066, 

U 2064, 

U 2065, 

U 2070, 
U 2071 , 

U 3265, 

U 0574, 
U 0575, 

U 0576, 

U 0577, 

U 3266, 
U 3267, 

U 2074, 
U 2076, 

U 3270, 



3457,01 1 1 ,0703,4174,4007,0700,0210,0004,0012 
2062,3771 ,0005, 1276,6007,0701 ,0000,0000, 1443 

3556 , 4553 , 0500 , 4374 , 4007 , 032 1 , 00 10 , 0077 , 7000 
2064 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 



346 1 , 452 1 , 0306 , 4374 , 4007 , 0700 , 00 10 , 0077 , 7000 



2070 ,2113, 0305 ,1174, 4007 , 052 1 , 4400 , 0000 ,1443 

3265 , 7441 , 0503 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3265 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000., 0000 

0574 , 3333 , 0003 ,7174, 4003 ,7700 , 0400 , 0000 , 0242 

0500 ,3771, 00 13, 4370, 4007 , 0700 , 0000 . 0000 , 0003 
3266,3771 ,0005, 1276,6007,0701 ,0000,0000, 1444 

3306 , 344 1 , 0304 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



0630,3771 ,0004, 1276,6007,0522,0000,0000, 1443 

3267 , 3333 , 0005 ,4174, 4007 , 0700 , 1 000 , 004 1 , 6020 
2074,4222,0000,4174,4006,7701 , 1000,0041 , 1770 

2074,4224,0003,4174,4026,7701 , 1000,0041 , 1770 
3270 ,7221, 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

0507 ,4113, 03 12, 7174, 4007 , 0700 , 0400 , 0000 , 0243 
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5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 
5770 
5771 
5772 
5773 
5774 
5775 
5776 
5777 
5778 
5779 
5780 
5781 
5782 
5783 
5784 
5785 
5786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5799 
5800 
5801 
5802 



. TOC 



1 EXTEND 



MOVE STRING 



SETUP- 



HERE TO MOVE A STRING 
COME HERE WITH: 

AR/ EO 

BR/ E1 



3744: 
MVS: 



3754 : 
=0* * 



MVS 1 : 

; SLEN 
= 1 100 



[AR]_[AR]+1 , 

LOAD VMA, 

START READ, 

CALL [GTFILL] 

[ BR ]_AC [DLEN ] 

TL [BR], #/777000, 

CALL [BITCHK] 

[AR]_AC 

[BRX]_[AR] .AND.# CLR 

#/777000, 

CALL [CLRFLG] 

AC[DLEN]_[AR]-[BR3 
SKIP DPO 
[AR]_.NOT. [BR] , 
J/MVS1 

[AR]_.NOT. [AR] 
WORK[SLEN]_[AR] , 
B DISP 
NOW HAS -<LEN OF SHORT 



RH, 



3T, 



GO FETCH FILL 
BYTE 

SUBROUTINE TO COMPLETE 

GET DEST LENGTH AND FLAGS 

ANY FLAGS SET? 

SEE IF ILLEGAL 

GET SRC LENGTH AND FLAGS 

;COPY FLAGS TO BRX 

CLEAR FLAGS IN AR 

NEW DLEN IS <SRC LEN>-<DST LEN> 

COMPUTE DIFFERENCE 

WHICH IS SHORTER? 

DESTINATION 

GET NEGATIVE LENGTH 

SOURCE 



SEE WHAT TYPE OF MOVE 
ER STRING>-1 



MVSO: 

=0* 
MVSO 1 



STATE_[SRC] , J/MOVELP 
[BR]_AC[DSTP] , J/MVSO 
[ARX]_[AR] , 
J/MOVSTO 
[ARX]_AC[DLEN] , 
SKIP DPO, 4T, 
J/MOVRJ 

READ [BR], FE_S+2 
O, BYTE STEP 



TRANSLATE - -ALL SET 
OFFSET BUILD MASK 
LEFT JUSTIFY 

RIGHT JUSTIFY 
WHICH IS SHORTER? 



; GET DST BYTE SIZE 
;BUILD AN S BIT MASK 



GEN MSK [AR], BYTE STEP, J/MVSO 1 

[AR]_.NOT.Q ;BITS WHICH MUST NOT BE SET 

WORK[MSK]_[AR] .AND. [MASK] , ; SAVE FOR SRCMOD 
J/MOVLPO ;G0 ENTER LOOP 



KS10.MC1 [4,31 1 ] 

EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-JULY-1981 



U 0500 , 1 074 , 055 1 , 0703 , 7 274 , 4007 , 070 1 , 00 1 , 0000 ,0242 

U 0501, 0750,3441,0304,4174,4007,0520,0000,0000,0000 

U 0504, 3271,1771,0003,7274,4007,0701,4000,0000,0242 

U 0505, 3451 ,3771 ,0013,4370,4007,0700,0010,0000,0005 

U 0507, 0500,3771,0013,4370,4007,0700,0000,0000,0003 



U 3271 , 2072,3771 ,0005, 1276,6007,0522,0000,0000, 1443 

U 2072, 3272,3440,0303, 1 174,4007,0700,0400,0000, 1443 

U 2073, 2072,1111,0503,4174,4007,0700,4000,0000,0000 

U 3272, 3273,7771,0003,7274,4007,0701,0000,0000,0242 

U 3273 , 2 100 , 3333 , 0005 ,4174, 4007 ,0520 , 0000 , OOOO , 0000 

U 2100, 2101,0111,0503,4174,4007,0700,0000,0000,0000 

U 2101, 3274,3111,0603,4174,4007,0700,0000,0000,0000 

U 3274, 1515,4221 ,0013,4170,4007,0700,0000,0000,0000 
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5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

581 1 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820. 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 

5831 

5832 

5833 



.TOC 



"EXTEND MOVE STRING 



OFFSET/TRANSLATE" 



; HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES 
=000 

MOVELP: [AR3_W0RK{SLEN]+1 , 

CALL [SRCMOD] 
=001 [ARX]_[AR], SKIP DPO, 

J/M0VST2 
=100 [AR]_-WORK[SLEN] , 

J/MVABT 

STATE_[SRC+DST] , 
CALL [PUTDST] 



UPDATE STRING LENGTH 
GET A SOURCE BYTE 
( 1 ) LENGTH EXHAUSTED 

SEE IF FILL IS NEEDED 
(4) ABORT 



= 111 

MOVLPO: STATE_[SRC], J/MOVELP 



(5) NORMAL- -STORE DST BYTE 
; (7) DPB DONE 



; HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE 
MVABT: [BR] AC [DLEN] , ; WHICH STRING IS LONGER 



[BR ]_AC [DLEN] , 
SKIP DPO, 4T 



=0 

MVABT 1 : AC [ DLEN 3_J AR 3 , J/MVABT2 
[AR3__[AR3~[BR3 , 
J/MVABT 1 

MVABT2: [ AR 3_ . NOT . WORK [ SLEN 3 

READ [BR] , SKIP DPO 
=0 [AR3_[AR]+[BR3 
MVEND: [ AR 3_[ AR ] .OR. [BRX3 
END STATE, J/STAC 



PUT AWAY DEST LEN 
DEST LEN WAS GREATER 
STICK BACK IN AC 

GET UNDECREMENTED SLEN 
NEED TO FIXUP SRC? 
SRC LONGER BY (DLEN) 
PUT BACK SRC FLAGS 
ALL DONE 



\ -J 

KS10.Mb-«-jr , 4 i 3ll] 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-JULY-1981 



U 0630, 3275,3771 ,0003, 1 276 , 6007 , 0701 , 0000 , 0000, 1441 

U 0631 , 2265,3771 ,0013,4370,4007,0700,0010,0000,0006 

U 0633, 3307,0551 ,0704,7274,4007,0701 ,0000,0000,0242 

U 3275, 2102,3440,0303,1174,4007,0670,0400,0000,1441 

U 2 1 02 , 3300 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 1 
rrupt. 

U 2 103 , 2 104 , 1 1 1 1 , 0704 , 4 1 74 , 4007 , 052 1 , 4000 , 0000 , 0000 

U 2104, 0650,3770,0305,4334,4016,7371,0000,0033,6000 

U 2105, 0546,4223,0000,1174,4007,0700,0400,0000,1443 

U 0650, 3275,3441,0503,4174,4007,0700,0000,0000,0000 

U 0651 , 3276,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 0652, 3277,3770,0503,4334,4017,0700,0000,0032,6000 

U 0653, 3276,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 3276, 2106,3440,0303,1174,4007,0700,0400,0000,1443 

U 21 06, 3665,0111, 0403 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 2107, 3721 ,31 13,0306,0174,4007,0700,0400,0000,0000 

U 3277 , 3275,01 1 1 , 0703 , 4 1 70 , 4007 , 0700 , OOOO , OOOO, OOOO 



U 3300 , 330 1 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 330 1 , 3302 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 2 

U 3302 , 2075 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 4 

U 2075 , 3561,4443, OOOO ,4174, 4007 , 0700 , 00 10 , 0000 , 0000 

U 2077, 3303,3771 ,0003,7274,4007,0701 ,0000,0000,021 1 

U 3303, 3304,3771 ,0005,7274,4007,0701 ,0000,0000,0213 

U 3304, 3305,3771,0004,7274,4007,0701,0000,0000,0212 



U 3305, 



3275 , 377 1 , 0006 , 7274 , 4007 , 070 1 , OOOO , OOOO , 02 1 4 
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5834 .TOC "EXTEND -- MOVE STRING -- MOVSRJ " 
5835 

5836 =00 

5837 ^MOVRJ: [ AR ]_AC [ SRCP ] , J/MVSKP ; SRC LONGER, SKIP OVER SOME 

5838 STATE_[ DSTF ] , ;DST LONGER, FILL IT 

5839 CALL [MOVFIL] ; . . 

5840 =11 [ARX]_W0RK[SLEN]+1 , ; DONE FILLING 

5841 J/MOVST 1 ;G0 MOVE STRING 
5842 

5843* ; HERE TO SKIP OVER EXTRA SOURCE BYTES 

5844 MVSKP: AC [ SRCP ]_[ AR ] , SKIP -1MS ; [ 12 1 ] Is there a timer interrupt? 

5845 =0 WORK[SV.AR]_[AR] , J/MVSK2 ;[121][123] Yes, save regs for int 

5846 [ARX]_[ARX]-1 , 3T , ; DONE SKIPPING? 

5847 SKIP DPO 

5848 =0 IBP DP, IBP SCAD, ;NO--START THE IBP 

5849 SCAD DISP, SKIP IRPT, ;4-WAY DISPATCH 

5850 3T, J/MVSKP 1 ; GO BUMP POINTER 

5851 AC[DLEN]_0, ; LENGTHS ARE NOW EQUAL 

5852 . J/M0VST4 ; GO MOVE STRING 
5853 

5854 =00 

5855 MVSKP 1 : [ AR ]_[ BR ] , J/MVSKP ; NO OVERFLOW 

5856 [AR]_.NOT. WORK[SLEN] , ; INTERRUPT 

5857 J/MVSK3 ; . . 

5858 SET P TO 36-S, ;WORD OVERFLOW 

5859 J/MVSKP2 ;FIXUP Y 

5860 [AR]_.NOT. WORK[SLEN] ;[121] INTERRUPT or timer. 

5861 MVSK3 : AC [ DLEN]_[ AR ] ; RESET DLEN 

5862 =0 [AR]_[AR]+[ARX] , 

5863 CALL [INCAR] ; ADD 1 TO AR 

5864 AC_[AR] .OR. [BRX] , ; PUT BACK FLAGS 

5865 J/ITRAP ; DO INTERRUPT TRAP 
5866 

5867 MVSKP2: [ AR ]_[ AR ] + 1 , HOLD LEFT, ; BUMP Y 

5868 J/MVSKP ; KEEP GOING 
'5869 

5870 ; BEGIN EDIT [ 123] 

5871 MVSK2: WORK [ SV . BR ]_[BR ] ; SAVE ALL 

5872 WORK[SV. ARX]_[ARX] ; THE REGISTERS 

5873 WORK[SV.BRX]_[BRX] . ; FOR THE TICK 

5874 =0* CALL [TICK] ; UPDATE CLOCK AND SET INTERUPT 

5875 [ AR ]_WORK [ SV . AR ] ; NOW PUT 

5876 [BR]_WORK[SV.BR] ; THEM ALL 

5877 [ ARX ]_WORK [ SV . ARX ] ; BACK SO WE 

5878 [BRX]_WORK[SV.BRX] , ; CAN CONTINUE 

5879 J/MVSKP 

5880 ; END EDIT [123] 
5881 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16-JULY-1981 



U 3306,. 3307,0111,0704,4174,4007,0700,0000,0000,0000 

U 3307, 0540,3771,0013,4370,4007,0700,0000,0000,0003 

U 0540 , 2276 , 3333 , 0004 ,7174, 4007 , 0520 , 04 1 , 0000 ,0242 

U 0541, 0750,3441,0304,4174,4007,0520,0000,0000,0000 

U 0542, 3451 ,3771 ,0013,4370,4007,0700,0010,0000,0005 

U 0546, 3307,0551 ,0704,7274,4007,0701 ,0000,0000,0242 

U 0750, 3310,4223,0000, 1 174,4007,0700,0400,0000, 1443 

U 0751, 2265,3771,0013,4370,4007,0700,0010,0000,0004 

U 0753, 2151,3440,0606,0174,4007,0700,0400,0000,0000 



U 3310, 3311,3113, 0406 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
U 3311, 0252,4221,0013,4170,4007,0700,0000,0000,0000 
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5882 
5883 
5884 
5885 
5886 
5887 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 
5897 
5898 
5899 
5900 
5901 
5902 
5903 
5904 
5905 



.TOC 

; HERE 
MOVSTO 
M0VST1 
=000 



"EXTEND -- MOVE STRING SIMPLE MOVE LOOP" 

FOR NO-MODIFICATION STRING MOVES 

[ARX]_[ARX3+1 ; CANT DO [ ARX ]_[ AR 3 + 1 

STATE_[SRC] ; PREPARE FOR PAGE FAIL 



MOVSTX: 

=010 

= 110 
M0VST4: 



=00 

M0VST2 : 
= 11 



WORK[SLEN]_[ARX] , 
SKIP DPO, CALL [GSRC] 
[ARX]_[AR] , 
SKIP DPO, U/M0VST2 
STATE_[SRC+DST] , 
CALL [PUTDST] 

[ARX]_W0RK[SLEN]+1 , 
J/MOVST 1 



AC[DLEN]_0, J/M0VST3 
STATE__[ DST ] , CALL [MOVFIL] ; FILL OUT DEST 
AC_[BRX], J/ENDSKP ;ALL DONE 



GO GET A SOURCE BYTE 

SHORT STRING RAN OUT 

GO SEE IF FILL NEEDED 

WILL NEED TO BACK UP BOTH POINTERS 

STORE BYTE 

; COUNT DOWN LENGTH 
;LOOP OVER STRING 



; CLEAR DEST LEN, REBUILD SRC 



M0VST3: AC_[ARX] .OR. [BRX] 
END STATE, J/SKIPE 



^REBUILD SRC 



KS10.MC1[4,311] 
EXTEND . MIC [ 4 , 3 1 1 ] 



15:06 



MICRO 31(254) 
16-JULY-1981 



U 3740, 2063,3771,0004,1276,6007,0701,0000,0000,1443 

U 2063, 3556,4553,0400,4374,4007,0321,0010,0077,7000 

U 2067, 21 10,3771 ,0006,0276,6007,0700,0000,0000,0000 

U 2110, 3556 , 4553 , 0600 , 4374 , 4007 , 032 1 , 00 1 O , 0077 , 7000 

U 2114, 2112,2113,0604,4174,4007,0521,4000,0000,0000 

U 2112, 2113,0111,0703,4174,4007,0700,0000,0000,0000 

U 2113, 2116,0111,0703,4170,4007,0700,0200,0004,0012 



U 2116, 
U 2117, 



3663 ,4221, 0003 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
3321,3223, 0000 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 0244 
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5906 .TOC "EXTEND -- COMPARE STRING" 

5907 

5908 3740: 

5909 CMS: [ ARX ]_AC [ DLEN ] ; GET DEST LEN 

5910 =0** TL [ARX], #/777000, CALL [BITCHK] 

5911 [BRX]_AC ; GET SRC LEN 

5912 =0** TL [ BRX ] , #/777000, CALL [BITCHK] 

5913 [BRX]-[ARX], 3T , SKIP DPO ;WHICH STRING IS LONGER? 

5914 =0 [AR]_[AR]+1 ; SRC STRING IS LONGER 

5915 VMA_[AR]+1, START READ ;DST STRING 

5916 =0 [AR]_0, ;FORCE FIRST COMPARE TO BE 

5917 ;EQUAL 

5918 CALL [LOADQ] ; PUT FILL INTO Q 

5919 WORK[FILL]_Q, ; SAVE FILLER 

5920 J/CMS2 ; ENTER LOOP 
5921 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

EXTEND. MIC[4, 311] 15:06 16-JULY-1981 



0250 , 422 1 , 00 1 3 , 4 1 70 , 4003 , 7700 , 0000 , 0000 , 0000 
3312,3771 ,0003, 1276,6007,0701 ,0000,0000, 1441 
1020 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

2277 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 00 10 ,0000 , 00 1 1 

2122, 3333 , 0004 ,4174, 4007 ,0520 , 0000 , 0000 , 0000 
3313,3333, 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0245 

33 1 4 , 3440 , 0606 , O 1 74 , 4007 , 0700 , 0400 , OOOO , OOOO 
3315, 377 1 , 001 3 , 4370 , 4007 , 0700 , OOOO , OOOO ,0010 
1030 , 3333 , 0004 ,4174, 4007 , 0520 , OOOO , OOOO , OOOO 

2124,4443, OOOO ,4174, 4007 , 0700 , 00 1 O , OOOO ,0000 

3316, 377 1 , 0003 , 7274 , 4007 , 070 1 , OOOO , OOOO , 0244 
3316,3440,0404, 1 1 74 , 4007 , 0700 , 0400 , OOOO , 1443 



3317, 
3320, 
3321 , 
3322, 
3323, 
2120, 



4111, 1203, 
4551 , 1205, 
2111, 0503 , 
1111,0704, 
1111,0706, 



7174, 
7274, 
4174, 
4174, 
4174, 



3333,0003,4174 



4007, 
4007. 
4007. 
4007, 
4007. 
4007. 



0700,0000, 
0700,0000, 
0700,4000, 
0700,4000, 
0700,4000, 
0621 ,0000, 



0000,0245 
0000,0245 
0000,0000 
0000,0000 
OOOO , OOOO 
OOOO , OOOO 



3324,3772, OOOO , 7274 , 4007 , 070 1 , OOOO , OOOO , 0244 
2 1 20 , 422 1 , 0003 , 4 1 74 , 4007 , 0700 , OOOO , OOOO , OOOO 
3325 , 377 1 , 00 1 3 , 4370 , 4007 ,0700 , OOOO , OOOO , 00 1 2 
1 030 , 3223 , OOOO ,7174, 4007 , 0700 , 0400 , OOOO , 0245 



U 2124, 3452,3771 ,0003, 1 276 , 6007 , 0701 , 0010 , OOOO , 1444 



U 2125, 0340,3333,0003,4174,4006,5701,1000,0051,0770 
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EXTEND -- COMPARE STRING 

5922 ; HERE IS THE COMPARE LOOP. 

5923 ; ARX/ CONATINS REMAINING DEST LENGTH 

5924 ; BRX/ CONTAINS REMAINING SOURCE LENGTH 

5925 =0 

5926 CM S3 : ; BYTES ARE NOT EQUAL 

5927 END STATE, ; NO MORE SPECIAL PAGE FAIL ACTION 

5928 SKIP-COMP DISP ;SEE SKIP-COMP-TABLE 

5929 CMS4: [ AR ]_AC [ SRCP ] ; GET BYTE POINTER 

5930 READ [BRX], SKIP DPO ; MORE IN SOURCE STRING? 

5931 =00 STATE__[ EDIT-SRC ] , ; PREPARE FOR PAGE FAIL 

5932 CALL [GETSRC] ; GO GET BYTE 

5933 READ [ARX], SKIP DPO, ; NO MORE SRC- -SEE IF MORE DEST 

5934 U/CMS5 ; . , 

5935 WORK[CMS]_[AR] ; SAVE SRC BYTE 

5936 = 

5937 AC_[BRX] ; PUT BACK SRC LEN 

5938 STATE_JCOMP-DST] ; HAVE TO BACK UP IF DST FAILS 

5939 READ [ARX], SKIP DPO ; ANY MORE DEST? 

5940 =00 

5941 CMS6 : CALL [CMPDST] ; MORE DEST BYTES 

5942 [AR]_WORK[FILL] , ; OUT OF DEST BYTES 

5943 J/CMS7 ; GO DO COMPARE 

5944 AC[DLEN]_[ARX] ; GOT A BYTE, UPDATE LENGTH 

5945 = 

5946 CMS7: [ AR ]_[ AR ]. AND . [ MASK ] , ; MAKE MAGNITUDES 

5947 WORK[CMS] ; WARM UP RAM 

5948 [BR]_JMASK] . AND . WORK [ CMS ] , 2T ; GET SRC MAGNITUDE 

5949 [AR]_[BR]-[AR] REV ; UNSIGNED COMPARE 

5950 CMS 2 : [ ARX ]_[ ARX ] - 1 ; UPDATE LENGTHS 

5951 [BRX]_[BRX]-1 ; . . 

5952 READ [AR], SKIP AD.EQ.O, U/CMS3 ;SEE IF EQUAL 

5953 

5954 =0 

5955 CMS5 : Q_WORK [FILL], J/CMS8 ; MORE DST- -GET SRC FILL 

5956 EAR]_0, J/CMS3 ; STRINGS ARE EQUAL 

5957 CMS8: STATE_[ EDIT-DST ] ;JUST DST POINTER ON PAGE FAIL 

5958 WORK[CMS]_Q, J/CMS6 ; MORE DST- -SAVE SRC FILL 
5959 

5960 =0 

5961 CMPDST: [ AR ]_AC [ DSTP ] , ; GET DEST POINTER 

5962 CALL [IDS.T] ; UPDATE IT 

5963 READ [AR], ; LOOK AT BYTE POINTER 

5964 * FE_FE . AND . S# , S#/0770, ; MASK OUT BIT 6 

5965 BYTE DISP, J/LDB1 ; GO LOAD BYTE 
5966 



KS10.MCll4,311 ] MICRO 31(254) 

EXTEND . MIC[ 4 , 3 1 1 ] 15:06 16-JULY-1981 



u 
u 


3742, 
3326, 


3326,4571 , 1203,4374 
3327, 3333,0003, 7174 


u 


3327, 


3330,3771 ,0003,0276 


u 


3330, 


2130,4521 ,0306,4374 


u 
u 


2130, 
2132, 


2222,3771 ,0004, 1276 
2126,3440,0404, 1 174 


u 


2126, 


2156,3333,0006,4174 


u 


2127, 


0616,4551 ,0303,4374 


u 


0616, 


3331 ,3771 ,0013,4370 


u 
u 


0617 , 
3331 , 


06 1 6 , 355 1 , 0606 , 4374 
0460 , 7333 , 0003 ,7174 


u 


0460, 


1074,0551 ,0703,7274 


u 


0461 , 


2144,4553,0600,4374 


u 


0464, 


3336,7771 ,0003,7274 


u 


0465, 


2134, 1553,0300,4374 


u 


2134, 


3336 , 777 1 , 0003 , 7274 



, 4007 , 0700 , 0000 , 007 7,7777 
, 4007 , 0700 , 0400 , 0000 ,0243 

, 6007 , 0700 , 0000 , 0000 , 0000 

, 4007 , 0700 , 0000 , 0077 , 7000 

,6007,0701 ,0010,0000, 1444 
,4007,0700,0400,0000, 1444 

, 4007 , 0520 , 00 1 O , 0000 , 0000 

, 0003 , 7700 , 0000 , 0000 ,0777 
, 4007 , 0700 , 0000 , 0000 , 0007 

, 0007 , 0700 , 0000 , 0040 , 0000 
, 4007 , 0700 , 0400 , 0000 , 0242 

, 4007 , 070 1 , 00 1 , 0000 ,0242 
, 4007 ,0321, 0000 , 00 1 , 0000 
, 4007 , 0701 , 0000 , 0000 ,0242 
, 4007 , 053 2 , 4000 , 0000 , 00 1 2 
, 4007 , 070 1 , 0000 , 0000 ,0242 
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5967 .TOC "EXTEND -- DECIMAL TO BINARY CONVERSION" 
5968 

5969 3742: 

5970 DBIN: [ AR ]_[ 777777 ] XWD O ; I F WE ARE IN OFFSET MODE 

5971 WORK[MSK]_[AR] ; ONLY ALLOW 18 BITS 

5972 ; RANGE CHECKED (0-10) LATER 

5973 [AR]_AC ; GET SRC LENGTH 

5974 [ BRX ]_[ AR ] . AND . # CLR RH, ;SPLIT OUT FLAGS 

5975 #/777000 ; . . 

5976 =0* [ARX]_AC[BIN1 ] , ; GET LOW WORD 

5977 CALL [CLARXO] ; CLEAR BIT O OF ARX 

5978 AC[BIN1 ]_[ARX] ; STORE BACK 

5979 =0 READ [BRX], SKIP DPO, ;IS S ALREADY SET? 

5980 CALL [CLRBIN] ; GO CLEAR BIN IF NOT 

5981 [ AR ]__[ AR ] . AND . # , ; CLEAR FLAGS FROM LENGTH 

5982 #/000777, HOLD RIGHT, ; .. 

5983 B DISP ;SEE IF OFFSET OR TRANSLATE 

5984 =1110 

5985 DBIN1 : STATE_[ CVTDB ] , J/DBIN2 ; TRANSLATE -- LEAVE S ALONE 

5986 [BRX]_[BRX] . OR . # , ; OFFSET- -FORCE S TO 1 

5987 #/400000, HOLD RIGHT, 

5988 J/DBIN1 

5989 DBIN2: WORK [ SLEN ]_. NOT .[ AR ] ;STORE -SLEN-1 

5990 

5991 ; HERE IS THE MAIN LOOP 

5992 =0*0 

5993 DBINLP : [ AR ]_WORK[ SLEN]+ 1 , CALL [SRCMOD] ; (O) GET MODIFIED SRC BYTE 

5994 TL [BRX], #/100000, ;(1) DONE, IS M SET? 

5995 J/DBXIT 

5996 [AR]_.NOT.WORK[SLEN] , ;(4) ABORT 

5997 J/DBABT ; 

5998 [AR]-#, #/10., ;(5) NORMAL- -SEE IF 0-9 

5999 4T, SKIP DP18 ; . . 

6000 =0 C AR ]_■ NOT . WORK [ SLEN] , ;DIGIT TOO BIG 

6001 J/DBABT ; GO ABORT CVT 
6002 



KS10.MC1 [4,31 1 } MICRO" 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16- JULY -.1981 



U 2135, 1050,3771 ,0005, 1276,6007,0622,0000,0000, 1443 

U 1050, 0560,3771,0004,1276,6007,0701,0010,0000,1444 

U 1051, 3332,3771,0005,1276,6007,0701,0000,0000,1444 

U 1052 , 0460 , 4443 , 0000 , 4 1 74 , 4007 ,0700 , OOOO , 0000 , 0000 



U 3332 , 2136,4553, 0500 , 4374 , 4007 , 032 1 , 0000 , 0076 , 0000 

U 2 1 36 , 1050 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2137, 3333,3775,0005, 1 276 , 6007 , 070 1 , 0000 , 0000 , 1444 

U 3333, 2140,3445,0505,1174,4007,0700,0000,0000,1444 

U 2140, 3666,0551 ,0505, 1274,4007,0700,0010,0000, 1444 

U 2141, 0460,0113,0305,1174,4007,0701,0400,0000,1444 
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EXTEND DECIMAL TO BINARY CONVERSION 

6003 ; HERE TO ADD IN A DIGIT 

6004 [BR]__AC[BINO] , 4T, ; GET HIGH BINARY 

6005 SKIP AD.EQ.O ;SEE IF SMALL 

6006 =00 

6007 DBSLO: [ ARX]_AC[BIN1 ] , ;TOOBIG 

6008 CALL [DBSLOW] ; GO USE DOUBLE PRECISION PATHS 

6009 [BR]_AC[BIN1 ] , ; GET LOW WORD 

6010 U/DBFAST ; MIGHT FIT IN 1 WORD 

6011 J/DBINLP ; RETURN FROM DBSLOW 

6012 ;G0 DO NEXT DIGIT 

6013 = 

6014 DBFAST: TL [BR], #/76OO00 ;WILL RESULT FIT IN 36 BITS? 

6015 =0 J/DBSLO ; MAY NOT FIT--USE DOUBLE WORD 

6016 [BR]_AC[BIN1 3*2 ;COMPUTE AC*2 

6017 [BR3_[BR3*2, AC[BIN13 ;COMPUTE AC*4 

6018 =0 [BR]_[BR3+AC[BIN1 ] , 2T , ;COMPUTE AC*5 

6019 CALL [SBRL3 ;COMPUTE AC*10 

6020 AC[BIN1 ]_[AR]+[BR] , 3T , ;NEW BINARY RESULT 

6021 J/DBINLP ;D0 NEXT DIGIT 
6022 



n 

KS10.MC1 [4,31 1 ] 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-JULY-1981 



U 0560, 0620,3771,0005,1276,6007,0701,0010,0000,1443 



U 0561 , 2142,0551 ,0404, 1274,4007,0562,0010,0000, 1444 
U 0565, 0600,0551,0505,1274,4007,0701,0000,0000,1443 

U 0600, 0621,4443,0000,4174,4007,0700,0010,0000,0000 



U 0601, 2142,0111,0304,4174,4007,0561,0010,0000,0000 
U 0605, 3334,3440,0404,1174,4007,0700,0400,0000,1444 



U 3334, 0002,3440,0505,1174,4004,1700,0400,0000,1443 

\ 



U 0620, 0621,4443,0000,4174,4007,0700,0010,0000,0000 
U 0621, 0622,0111,0505,4174,4007,0700,0000,0000,0000 



U 0622, 2142,0111,0404,4174,4007,0561,0010,0000,0000 
U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000 



U 2142, 0004,4443,0000,4174,4004,1700,0000,0000,0000 
U 2143, 3335 , 455 1 , 0404 , 4374 , 0007 , 0700 , 0000 , 0037 ,7777 

U 3335, 0004,0111,0705,4174,4004,1700,0000,0000,0000 
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6023 
6024 
6025 
6026 
6027 
6028 
6029 
6030 
6031 
6032 
6033 
6034 
6035 
6036 
6037 
6038 
6039 
6040 
6041 
6042 
6043 
6044 
6045 
6046 
6047 
6048 
6049 
6050 
6051 
6052 
6053 
6054 
6055 
6056 
6057 
6058 
6059 



; HERE IF NUMBER DOES NOT FIT IN ONE WORD 



=000 
DBSLOW: 



= 101 



[BR]_AC[BINO] , 

CALL [MULBY4] 

[ARX]_[ARX]+AC[BIN1 ] , 

SKIP CRY 1 , 4T, 

CALL [ADDCRY] 

[BR] [BR]+AC[BINO] 



=000 



= 101 



CALL [DBLDBL j 
[ARX]_[ARX] + [AR] . 
SKIP CRY 1 , 
CALL [ADDCRY] 
AC [ BIN 1 ]_[ ARX ] 

AC[BINO]_[BR] , 
RETURN [2] 



; HERE TO DOUBLE BR ! ARX 
=000 

MULBY4: CALL [DBLDBL] 
DBLDBL: [ BR ]_[ BR ] + [ BR ] 

[ARX]_[ARX]+[ARX] , 
SKIP CRY 1 , 3T, 
CALL [ADDCRY] 
= 1 10 RETURN [ 1 ] 



; HERE TO ADD THE CARRY 

=0 

ADDCRY: RETURN [4] 

CLEAR [ARX]0 
[BR]_[BR]+1 , 
RETURN [4] 



3T, 



FETCH HIGH WORD 
MULTIPLY BY 4 
COMPUTE VALUE * 5 
SEE IF OVERFLOW 
GO ADD CARRY 
ADD IN HIGH WORD 

MAKE * 10 
ADD IN NEW DIGIT 
SEE IF OVERFLOW 
ADD IN THE CARRY 
PUT BACK ANSWER 



;G0 DO NEXT BYTE 



DOUBLE TWICE 

DOUBLE HIGH WORD FIRST 

(SO WE DON'T DOUBLE CARRY) 

DOUBLE LOW WORD 

SEE IF CARRY 

ADD IN CARRY 

ALL DONE 



NO CARRY 

KEEP LOW WORD POSITIVE 
ADD CARRY 
ALL DONE 



; KS10.MC1[4,311] MICRO 31(254) 

; EXTEND. MIC[4, 31 1 ] 15:06 16-UULY-1981 

U 3336, 3337,3111,0306,4174,4007,0700,0000,0000,0000 
U 3337, 2145, 1 1 1 1 ,0701 ,4170,4007,0700,4000,0000,0000 



U 2144,. 3342,3771 ,0004, 1276,6007,0701 ,0000,0000, 1444 

U 2145, 3340,3771,0003,1276,6007,0701,0000,0000,1444 

U 3340, 2146,3771,0005,1276,6007,0522,0000,0000,1443 

U 2146, 3341,4551,0303,4374,0007,0700,0000,0037,7777 

U 2147, 3341,3551,0303,4374,0007,0700,0000,0040,0000 

U 3341 , 2150,3440,0303, 1 174,4007,0700,0400,0000, 1444 

U 2 1 50 , 2 1 56 , 3770 , 0606 ,0174, 4007 , 0520 , 04 10 , OOOO , OOOO 

U 2151, 0260,4221,0013,4170,4007,0700,0000,0000,0000 

U 3342, 3343,4551,0404,4374,0007,0700,0000,0037,7777 

U 3343, 2152,2441,0404,1174,4007,0621,4000,0000,1443 

U 2152, 2155,7771 ,0003, 1274,4O07,070O,0O0O,OO00, 1443 

U 2153, 2154,1771,0003,1274,4007,0621,4000,0000,1443 

U 2154, 2155,4571,1204,4374,4007,0700,0000,0040,0000 

U 2155, 3344,3440,0303, 1 174,4007,0700,0400,0000, 1443 

U 3344, 2145,3440,0404,1174,4007,0700,0400,0000,1444 



U 2156, 3345,4223,0000,1174,4007,0700,0400,0000,1443 
U 2157, 0001,4443,0000,4174,4004,1700,0000,0000,0000 
U 3345, 0001,4223,0000,1174,4004,1700,0400,0000,1444 
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6060 
6061 
6062 
6063 
6064 
6065 
6066 
6067 
6068 
6069 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
6091 
6092 
6093 
6094 
6095 
6096 
6097 
6098 



; HERE TO ABORT CONVERSION 
DBABT : [ BRX ]_[ BRX ] . OR . [AR] 

[PC]_[PCJ-1, HOLD LEFT, 

J/DBDONE 

; HERE AT END 
=0 

DBXIT: 



PUT BACK UNUSED LENGTH 

DO NOT SKIP 

GO FIX UP SIGN COPY 



DBDONE : 



DBDN1 : 
=0 

ENDSKP : 
DBNEG: 



=0 



[ARX]_AC[BIN1 ] , 
U/DBNEG 
[AR3„AC[BIN1 ] 
[BR]_AC[BINO] , 4T, 
SKIP DPO 

CLEAR [AR]0, J/DBDN 1 

[ AR ]_[ AR ] . OR . # , #/400000 

AC[BIN1 3_[AR] 

AC_[BRX] TEST, ; RETURN 

SKIP DPO, CALL [CLRBIN] 

END STATE, J/SKIP 

CLEAR ARXO 
[ARX]_-[ARX] , 3T, 
SKIP AD.EQ.O, AC[BINO] 
[AR]_.NOT , ACfBINO] , 2T, 
[AR]__-AC[BINO] , 3T, 
SKIP AD.EQ.O 
[ARX]_[ 400000] XWD O 



GET LOW WORD 
GO NEGATE 
FETCH LOW WORD 
GET HIGH WORD 
WHAT SIGN 
POSITIVE 

HOLD RIGHT 
STORE AC BACK 
FLAGS 

; CLEAR BIN IS S=0 
;NO--ALL DONE 

CLEAR EXTRA SIGN BIT 
NEGATE AND SEE IF 
ANY CARRY 
J/STAC34 ;N0 CARRY 
CARRY 

SEE IF ALL ZERO 
MAKE COPY OF SIGN 

UNLESS HIGH WORD IS ZERO 
PUT BACK ANSWER 



STAC34: AC [ BINO]_[ AR ] 

AC[BIN1 ]_[ARX] , J/DBDONE ; 

HELPER SUBROUTINE TO CLEAR AC[BINO] AND AC[BIN1] IF S=0 
CALL WITH: 

READ [BRX], SKIP DPO, CALL [CLRBIN] 
RETURNS 1 ALWAYS 
=0 

CLRBIN: AC[BINO]_0, U/CLRB1 

RETURN [1] 
CLRB1: AC[BIN1] O, RETURN [1] 



KS10.MC1 [4,311] 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-JULY-1981 



2160,3771 ,0006, 1 276 , 6007 , 035 1 , 0000, 0000 , 1443 

3346 ,4551, 0606 , 4374 , 4007 , 0700 , OOOO , 0077 , 7000 
3364 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 
3347,3771 ,0004, 1276,6007,0701 ,0000,0000, 1441 
2131 ,3771 ,0003,0276,6007,0700,2000,0071 ,0024 

2222,3333, 0004 ,7174, 4007 , 0700 , 04 1 O , 0000 , 0250 

2162,3333, 0003 ,7174, 4007 , 0520 , 0400 , 0000 ,0247 

2172,4221, 0006 , 4 1 70 » 4007 , 0700 , 0000 , 0000 , 0000 

2164,3551, 0606 , 4374 , 0007 , 0700 , 0000 , 00 1 , 0000 

3072 ,4551, 0404 , 4374 , 0007 , 0700 , 00 1 , 0037 ,7777 

2 1 70 , 3770 , 0303 ,0174, 4007 , 0520 , 0400 , 0000 , 0000 

2162,3440,0404, 1 1 74 , 4007 ,0700 , 0400 , 0000 , 1441 
3350 ,0111, 0704 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

2164,3551, 0606 , 4374 , 0007 , 0700 , 0000 , 0004 , 0000 
044 1 , 377 1 , 0003 , 0276 , 6007 , 070C , 0000 , 0000 , 0000 

2176,3551, 0606 , 4374 , 0007 , 0700 , 0000 , 0020 , 0000 

2216,3771 ,0004, 1 276 , 6007 , 0701 , 0010 , 0000 , 1441 

2172,01 1 1 ,0706,4174,4007,0630, 2000,0060,0000 
2174,4553,0600,4374,4007,0331 ,0000,0077,7777 



2176, 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0020 , 0000 
2 1 76 , 1 1 1 , 0706 , 4 1 7 4 , 4 007 , 0700 , 0000 , 0000 , 0000 
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6099 .TOC "EXTEND BINARY TO DECIMAL CONVERSION" 
6100 

6101 3743: 

6102 BDEC: [ BRX ]_AC [ DLEN ] , ; GET LENGTH AND FLAGS 

6103 SKIP FPD ;CONTINUE FROM INTERUPT? 

6104 =0 [ BRX ]_[BRX ] . AND . # , ; JUST KEEP THE FLAGS 

6105 #/777000, ; 

6106 J/BDECO ; COMPUTE NEW FLAGS 

6107 DOCVT: [AR]_AC, J/DOCVT 1 ; ALL SET PRIOR TO TRAP 

6108 BDECO: [ARX]_AC[1] ; GET LOW BINARY 

6109 [AR]_AC, SC_20. ; GET HIGH WORD, SET STEP COUNT 

6110 =0* WORK[BDL]_[ARX] , ; SAVE IN CASE OF ABORT 

6111 CALL [CLARXO] ; MAKE SURE BIT IS OFF 

6112 WORK [ BDH ]_[ AR ] , ; SAVE HIGH WORD AND 

6113 SKIP DPO ; TEST SIGN 

6114 =0 

6115 BDEC 1 : [BRX]_0, HOLD LEFT, ;POSITIVE, CLEAR RH OF BRX 

6116 J/BDEC3 ;COMPUTE # OF DIGITS REQUIRED 

6117 [BRX]_[BRX] . OR . # , ; NEGAT I VE , SET M 

6118 #/lOOOOO, HOLD RIGHT ; .. 

6119 =0* 

6120 BDEC2: CLEAR ARXO, CALL [DBLNG1] ; NEGATE AR ! ARX 

6121 AC_[AR] TEST, ; PUT BACK ANSWER 

6122 SKIP DPO ;IF STILL MINUS WE HAVE 

6123 ; 1B0, AND NO OTHER BITS 

6124 =0 AC[1]_[ARX], J/BDEC1 ;POSITIVE NOW 

6125 [ARX]_[ARX]+1 ; JUST 1B0--ADD 1 

6126 [BRX]_[BRX] . OR . # , ; AND REMEMBER THAT WE DID 

6127 #/040000, HOLD RIGHT, ; IN LEFT HALF OF AC+3 

6128 J/BDEC2 ; NEGATE IT AGAIN 

6129 =0 

6130 BDEC3: [AR]_AC, J/BDEC4 ; GET HIGH AC 

6131 [BRX]_[BRX] .0R.#, ; NO LARGER POWER OF 10 FITS 

6132 #/200000, ;SET N FLAG (CLEARLY NOT 0) 

6133 HOLD RIGHT, J/BDEC5 ;SETUP TO FILL, ETC. 

6134 =001 

6135 BDEC4: [ARX]_AC[1], ;GET HIGH WORD 

6136 CALL [BDSUB] ;SEE IF 10**C(BRX) FITS 

6137 =011 [BRX]_[BRX]+1 , ; NUMBER FITS- -TRY A LARGER ONE 

6138 STEP SC, J/BDEC3 ;UNLESS WE ARE OUT OF NUMBERS 

6139 =111 TR [BRX], tt/111111 ; ANY DIGITS REQUIRED? 

6140 = 

6141 =0 [BRX]_[BRX] . OR . # , ; SOME DIGITS NEEDED, 

6142 #/200000, HOLD RIGHT, ; SET N FLAG 

6143 J/BDEC5 ;CONTINUE BELOW 

6144 [BRX]_[BRX]+1 ;ZERO--FORCE AT LEAST 1 DIGIT 
6145 



KS10.MC1[4,311] MICRO 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16-JULY-1981 



U 2176, 3461 ,3771 ,0003, 1276,6007,0701 ,0010,0000, 1443 

U 2177, 3351,4221,0005,4174,4007,0700,0000,0000,0000 

U 3351 , 3352,3441 ,0605,4170,4007,0700,0000,0000,0000 

U 3352, 2200,1111,0305,4174,4007,0421,4000,0000,0000 

U 2200, 3374,3771,0004,7274,4007,0701,0000,0000,0250 

U 220 1 , 2202 , 3333 , 0006 , 4 1 74 , 4007 , 0520 , 0000 , OOOO , 0000 

U 2202, 2161,3440,0606,1174,4007,0700,0400,0000,1443 



U 2203 , 3353 , 344 1 , 0603 ,4174, 0007 , 0700 , OOOO , OOOO , OOOO 

U 3353, 3354,3440,0303,1174,4007,0700,0400,0000,1443 

U 3354, 3355,3771 ,0003,7274,4007,0701 ,0000,0000,0240 

U 3355, 3356,01 1 1 ,0703,4174,4007,0700,0200,0004,0012 

U 3356 , 3357 , 377 1 , 00 1 6 , 4365 , 5007 ,0700 , 0200 , OOOO , 0002 

U 3357, 3360,3771 ,0013,4370,4007,0700,0000,0000,0012 

U 3360, 3361 ,2113,0507,7174,4007,0701 ,4400,0000,0242 

U 3361, 3362,3441,1603,7174,4007,0700,0000,0000,0242 



U 3362, 0640,0551,0705,7274,4007,0521,0000,0000,0242 

U 0640, 2161 ,3440,0606, 1 174,4007,0700,0400,0000, 1443 

U 064 1 , 345 1 , 3333 , 0005 ,7174, 4007 , 0700 , 04 10 , OOOO ,0242 

U 0647, 3363,2551,0705,1274,4007,0701,4000,0000,1443 



U 3363, 



3361 ,3440,0505, 1 174,4007,0700,0400,0000, 1443 
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6146 
6147 
6 148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 
6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 



BDEC5: [ AR]_AC[DLEN] , 
CALL [CLRFLG] 
[BR}__0 

[BR j_[BRXl , HOLD LEFT 
[BR]_[BR]-[AR] , 
SKIP AD.LE.O 
=0 [ARX]_WORK[BDL] , 

U/BDABT 

READ [BRX ] , SKIP DPO 
=0 AC[DLEN]_[BRX] , 

U/DOCVT 



; GET LENGTH 

; REMOVE FLAGS FROM AR 

GET # OF DIGITS NEEDED 

NUMBER OF FILLS NEEDED 

SEE IF ENOUGH ROOM 

DOES NOT FIT IN SPACE ALLOWED 

DO NOT DO CONVERT 
IS L ALREADY SET 
NO--NO FILLERS 
GO CHURN OUT THE NUMBER 



; HERE TO STORE LEADING FILLERS 
[AR]__[BRX], HOLD RIGHT 
AC [ DLEN ]__[ AR ] 
[AR]_WORK[EO] 
[AR.]__[AR] + 1 , LOAD VMA , 
START READ 
MEM READ, [TO]_MEM 
STATE_[ EDIT-DST ] 
W0RK[SLEN]_JBR]- 1 , 3T 

BDFILL: [AR]_[TO], W0RK[SLEN3 

[BR]_W0RK[SLEN]+1 , 3T , 

SKIP DPO 
=000 AC[DLEN3_[BRX3 , J/DOCVT 
=001 WORK[SLEN]_[BR] , 

CALL [PUTDST] 
=111 [BR3_AC[DLEN3-1 



MAKE SURE THE FLAGS GET SET 

BEFORE WE PAGE FAIL 
ADDRESS OF FILL (-1) 
FETCH FILLER 

GET FILLER INTO AR 
PAGE FAILS BACKUP DST 
SAVE # OF FILLERS 
RESTORE FILL BYTE AND 

WARM UP RAM FILE 
MORE FILLERS NEEDED? 

ALL DONE FIX FLAGS AND CONVERT 
SAVE UPDATED LENGTH 

AND STORE FILLER 
COUNT DOWN STRING LENGTH 



AC [ DLEN3_[ BR 3 , J/BDFILL ;KEEP FILLING 



KS10.MCft4 f 31 1 3 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15 :06 16- JULY- 1981 



U 3364, 3373,3771 ,0004, 1276,6007,0701 ,0000,0000, 1441 



U 0562, 2216,01 1 1 ,0705,4174,4007,0700,0010,0000,0000 
U 0566, 3365,3333,0003,7174,4007,0700,0400,0000,0247 



U 3365, 0636,0551,0503,7274,4003,7701,0000,0000,0241 

U 0636 , 2210,3333, 0003 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 0637, 0510,3333,0004,7174,4007,0700,0400,0000,0250 

U 0510, 3451,3771,0013,4370,4007,0700,0010,0000,0012 

U 0516, 3366,2551,0705,1274,4007,0701,4000,0000,1443 

U 3366, 3367,3771 ,0003,7274,4007,0701 ,0000,0000,0247 

U 3367, 3370,3771,0004,7274,4007,0701,0000,0000,0250 

U 3370 , 2204 , 4553 , 0500 , 4374 , 4007 , 032 1 , 0000 , 0004 , 0000 

U 2204, 3375,0111,0704,4174,4007,0700,0000,0000,0000 

U 2205, 3371,3440,0303,0174,4007,0700,0400.0000,0000 

U 3371, 3372,3440,0404, 1174,4007,0700.0400,0000, 1441 

U 3372, 3373,3440,0505,1174,4007,0700,0400,0000,1443 

U 3373 , 2206 ,1111, 0706 ,4174, 4007 , 053 1 , 4000 , 0000 , OOOO 

U 2206, 0562,2441,0705,4174,4467,0701,4000,0003,0000 

U 2207, 0260,4221,0013,4170,4467,0700,0000,0005,0000 



U 2210, 
U 221 1 , 
U 2212, 
U 2213, 
U 2214, 
U 2215, 



3661 ,4221 ,0013, 
2212,4553,0600, 
0637,4221 ,0003, 
2214,4553,0600, 
2215,3770,0303, 
0637,4221 ,0003, 



4170,4007, 

4374,4007, 

4174 ,0007 

4374,4007 

4344,4007, 

4174,0007 



0700, 
0331 , 
0700, 
0321 . 
0700. 
0700. 



0010, 
0000, 
OOOO, 
0000, 
OOOO, 
OOOO, 



OOOO, 
0077, 
OOOO, 
0010, 
OOOO, 
OOOO, 



OOOO 
7777 
OOOO 
OOOO 
OOOO 
OOOO 



U 3374, 1505,3771 ,0003,7274,4007,0701 ,0000,0000,0247 



U 3375, 



2205 , 555 1 , 0505 , 4374 , 0007 , 0700 , OOOO , 0004 , OOOO 
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6180 
6181 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 
6208 
6209 
6210 
621 1 
6212 
6213 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
6221 
6222 
6223 



; HERE TO STORE THE ANSWER 



D0CVT1 : 

=010 
BDECLP : 

= 1 10 



= 1110 

BDSET: 
=00* 
= 11* 



=0 

D0CVT3: 



D0CVT2 : 
=0 



[ARX]_AC[ 1 ] , 
J/D0CVT2 

[BR]_[BR]+1 , 
CALL [BDSUB] 
WORK [ BDH ]_[ AR ] 

[AR]_[BR]+W0RK[E1 ] , 
B DISP 

READ [AR] , LOAD VMA 
START READ, J/BDTBL 
WORK[BDL]_[ARX] 
STATE_[EDIT-DST] 
[BR]_AC[DLEN]-1 
[ AR }_WORK [ BDH ] 
[ ARX ]_WORK [ BDL ] 
TL [BR], #/040000 
[ARX]_[ARX]+1 , J/BDCFLG 
AC_[AR] 
AC[ 1 ]_[ARX] 
AC [DLEM]_[BR ] 
[BRX] [BRX]-1, 3T, 



; GET LOW WORD 

; ENTER LOOP FROM BOTTOM 

COUNT DIGITS 

KEEP SUBTRACTING 10**C(BRX) 
SAVE BINARY 



OFFSET DIGIT 
SEE WHICH MODE 

TRANSLATE, START READING TABLE 

GO GET ENTRY FROM TABLE 
SAVE LOW BINARY 
CALL [PUTDST] 

; UPDATE STRING LENGTH 



; ARE WE CONVERTING 1B0? 

;YES--FIX THE NUMBER AND CLEAR FLAG 



; STORE BACK NEW STRING LENGTH 
SKIP DP 18 



[BR]_-1, SET FPD, 3T, J/BDECLP 
END STATE, CLR FPD, J/SKIP 



; HERE 
= 

BDTBL : 



TO TRANSLATE 1 DIGIT 

END STATE, 

CALL [LOADAR] 
TR [BRX], H/llllll 
[AR]_0, HOLD RIGHT, 
TL [BRX], #/100000 
[ AR ]_[ AR ] SWAP 
[AR] 0, HOLD RIGHT, 



;DON'T CHANGE BYTE POINTER IF 

; THIS PAGE FAILS 

;G0 PUT WORD IN AR 

; LAST DIGIT 
J/BDSET 

; AND NEGATIVE 

; LAST AND MINUS, USE 
J/BDSET 



LH 



BDABT: [ AR ]_WORK [ BDH ] , J/DAC 

BDCFLG: [ BR ]_[ BR ] . AND . NOT . # , 
#/040000, HOLD RIGHT, 
J/D0CVT3 



CLEAR FLAG THAT TELLS US 
TO SUBTRACT 1 AND 
CONTINUE CONVERTING 



KS10.MC1[4, 311] 

EXTEND. MIC[4, 31 1 ] 



15:06 



MICRO 31(254) 
16-JULY-1981 



U 2216, 
U 2217, 



2165, 055 1 , 06 1 6 , 4374 , 4007 , 070 1 , 0000 , 0000 , 0344 
2675 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2165, 2222,3441 , 1617,4174,4007,0700,0210,0000,0010 

U 2167, 2220, 1551 ,0404,6274,4007,0561 ,4000,0000,0000 

U 2220, 2221,1111,0703,4174,4007,0700,4000,0000,0000 

U 2221 , 3376,0551 ,0616 , 4374 , 4007 ,0701 ,0000,0000,0373 

U 3376, 3377,3333,0016,4174,4007,0700,0200,0000,0010 

U 3377, 2222,1551,0303,6274,4007,0522,4000,0000,0000 



U 2222, 0002,4551,0404,4374,0004,1700,0000,0037,7777 

U 2223 , 3400 , 055 1 , 0303 , 6274 , 4007 , 0700 , OOOO , OOOO , OOOO 

U 3400, 3401,3333,0017,4174,4007,0700,0200,0000,0010 

U 3401 , 2224,0551 ,0404,6274,4007,0561 ,0000,0000,0000 



U 2224, 0006,4551,0404,4374,0004,1700,0000,0037,7777 
U 2225, 2224,01 1 1 , 0703 , 4 1 74 , 4007 , 0700 , OOOO , OOOO , OOOO 
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EXTEND -- BINARY TO DECIMAL CONVERSION 

6224 ; SUBROUTINE TO SUBRTACT A POWER OF 10 FROM ARIARX 

6225 ; CALL WITH: 

6226 ; ARIARX/ NUMBER TO BE CONVERTED 

6227 ; BRX( RIGHT )/ POWER OF 10 

6228 ; RETURNS: 

6229 ; 2 RESULT IS STILL POSITIVE 

6230 ; 6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE) 

6231 =0 

6232 BDSUB: [ T0]_[ BRX ]+# , 3T , WORK/DECLO, ; ADDRESS OF LOW WdRD 

6233 U/BDSUB 1 ; NO INTERRUPT 

6234 J/FIXPC INTERRUPT 

6235 =0* 

6236 BDSUB 1 : [T1]_JT0], LOAD VMA , ; PUT IN VMA , 

6237 CALL [CLARXO] ;FIX UP SIGN OF LOW WORD 

6238 [ARX]_[ARX]-RAM, • 3T , ; SUBTRACT 

6239 SKIP CRY 1 ;SEE IF OVERFLOW 

6240 =0 [AR]_[AR]-1 ;PROCESS CARRY 

6241 [TO]_[BRX]+#, 3T , WORK/DECHI ; ADDRESS OF HIGH WORD 

6242 READ [TO], LOAD VMA ;PLACE IN VMA 

6243 [AR]_JARJ-RAM, 4T , ; SUBTRACT 

6244 SKIP DPO ; SEE IF IT FIT 

6245 =0 

6246 CLARXO: CLEAR ARXO, ; IT FIT, KEEP LOW WORD + 

6247 RETURN [2} ; AND RETURN 

6248 [ AR ]_[ AR ] +RAM ; RESTORE 

6249 READ [T1], LOAD VMA 

6250 [ARX]_[ARX]+RAM, 3T , SKIP CRY 1 

6251 =0 

6252 BDSUB2: CLEAR ARXO, ; KEEP LOW WORD + 

6253 RETURN [6] ; RETURN OVERFLOW 

6254 [AR]_[AR]+1, ; ADD BACK THE CARRY 

6255 J/BDSUB2 ; COMPLETE SUBTRACT 

6256 



o 

; KS10.MGf[4,311] MICRO 31(254) 

; EXTEND .MIC [4 ,311] 15:06 16- JULY- 198 1 



U 3741 , 3457,01 1 1 ,0703,4170,4007,0700,0210,0004,0012 

U 3751, 2111,3771,0006,0276,6007,0700,0000,0000,0000 

U 2111, 3556,4553,0600,4374,4007,0321 , 0010 , 0004 , 7777 

U 2115, 3402 , 3443 , 0600 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 3402, 3403,4221,0013,4170,4007,0700,0000,0000,0000 

U 3403, 2226,3770,0605,4344,4007,0700,0000,0000,0000 

U 2226 , 366 1,0115, 0505 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 

U 2227, 0654,3333,0005,4174,4003,1701,0000,0000,0000 

U 0654 , 2230 , 3770 , 0303 , 4344 , 4007 , 0700 , 2000 , 007 1 , 0007 

U 0655, 2231,3770,0303,4344,4007,0700,0000,0000,0000 

U 0656, 2230,3447,0303,4174,4007,0700,2000,0071,0006 

U 0657 , 3404 , 455 1 , 0303 , 4374 , 4007 , 0700 , 0000 , 0000 , 0777 

U 2230 , 2230 , 3447 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2231, 3404,4551,0303,4374,4007,0700,0000,0000,0777 
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EXTEND EDIT -- MAIN LOOP 

6257 .TOC "EXTEND -- EDIT -- MAIN LOOP" 

6258 

6259 ; HERE FOR EDIT INSTRUCTION 

6260 ; CALL WITH: 

6261 ; AR/ EO ADDRESS OF FILL, FLOAT, AND MESSAGE TABLE 

6262 ; BR/ E1 TRANSLATE TABLE 

6263 ; 

6264 3741: 

6265 EDIT: VMA_jAR] + 1, START READ, ;FIRST GET FILL BYTE 

6266 CALL [GTFILL] ; GO GET IT 

6267 3751: [BRX]_AC ; GET PATTERN POINTER 

6268 =0** TL [BRX], #/047777, ; MAKE SURE SECTION O 

6269 CALL [BITCHK] ; . . 

6270 EDITLP: VMA_[BRX], START READ ; FETCH PATTERN WORD 

6271 END STATE ; NO SPECIAL PAGE FAIL ACTION 

6272 [BR]_[BRX] SWAP ; GET PBN IN BITS 20 & 21 

6273 =0 [BR]_[BR]*4, ; .. 

6274 CALL [LOADAR] ; GET PATTERN WORD 

6275 READ [BR], 3T , DISP/DP LEFT 

6276 =1100 

6277 [ AR ]__[ AR ] SWAP, SC_7 , J/MOVPAT ; (O) BITS 0-8 

6278 [ AR ]_[ AR ] SWAP, J/MSKPAT ;(1) BITS 9-17 

6279 [AR]_[AR]*.5, SC_6 , J/MOVPAT ;(2) BITS 18-27 

6280 [ AR ]_[ AR ] . AND . ft , #/777, J/EDISP ;(3) BITS 28-35 
6231 =0 - 

6282 MOVPAT: [ AR ]_J AR ] * . 5 , STEP SC , J/MOVPAT ;SHIFT OVER 

6283 MSKPAT: [ AR ]_[ AR ] . AND . U , #/777 
6284 



; KS10.MG1[4 f 31 1 ] MICRO 31(254) 

; EXTEND . MIC [ 4 , 3 1 1 ] 15:06 16- JULY- 1981. 

U 3404 , 2232 , 3447 , 0305 ,4174, 4007 , 0700 , 2000 , 007 1 , 0002 

U 2232 , 2232 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2233, 0661,3333,0005,4174,4003,5701,0000,0000,0000 

U 0661 , 2234, 1553,0300,4374,4007,0532,4000,0000,0005 

U 0663 , 2252 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0665 , 3424 , 4443 , 0000 , 4 ,1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 0667, 3424, 4443; 0000, 4 174, 4007, 0700, 0000, 0000, 0000 

U 067 1 , 3424 , 4443 , 0000 ,4174, 4007 ,0700 , 0000 , 0000 , 0000 

U 0673 , 2256 , 4553 , 0600 , 4374 , 4007 , 032 1 , 0000 , 00 10 , 0000 

U 0675, 2256,4553,0600,4374,4007,0321,0000,0020,0000 

U 0677, 2256,4443,0000,4174,4007,0700,0000,0000,0000 



U 2234 , 3424 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2235, 0710,3333,0003,4174,4003,5701,0000,0000,0000 

U 0710, 3405,01 1 1 ,0701 ,4174,4007,0700,0000,0000,0000 

U 071 1 , 2244,3771 ,0013,4370,4007,0700,0000,0000,001 1 

U 0712, 0006,3333,0006,4174,4007,0520,0000,0000,0000 



U 0713, 3424,4551,0606,4374,0007,0700,0000,0007,7777 
U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443 

U 0715, 2240,3443,0500,4174,4007,0700,0200,0004,0012 
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EXTEND EDIT -- MAIN LOOP 

6285 ; HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR 

6286 EDISP: [ BR ]__[ AR ] * . 5 , SC_2 ;SHIFT OVER 

6287 =0 

6288 EDI SP 1 : [BR ]_[BR 3 * . 5 , STEP SC , J/EDISP1 

6289 READ [BR], 3T , DISP/DP ; LOOK AT HIGH 3 BITS 

6290 =0001 ;(0) OPERATE GROUP 

6291 [AR]-#, #/5, 4T, ; SEE IF 0-4 

6292 SKIP DP18, J/EDOPR 

6293 ;(1) MESSAGE BYTE 

6294 READ [BRX], SKIP DPO, 

6295 J/EDMSG 

6296 ;(2) UNDEFINED 

6297 J/EDNOP 

6298 ;(3) UNDEFINED 

6299 J/EDNOP 

6300 ;(4) UNDEFINED 

6301 J/EDNOP 

6302 ' ; (5) SKIP IF M SET 

6303 TL [BRX], #/lOOOOO, 

6304 J/EDSKP 

6305 ; (6) SKIP IF N SET 

6306 TL [BRX], #/200000, 

6307 J/EDSKP 

6308 ; (7) SKIP ALWAYS 

6309 J/EDSKP 
6310 

6311 .TOC "EXTEND -- EDIT -- DECODE OPERATE GROUP" 
6312 

6313 ; HERE FOR OPERATE GROUP. SKIP IF IN RANGE 

6314 =0 

6315 EDOPR: .J/EDNOP ; OUT OF RANGE 

6316 READ [AR], 3T , DISP/DP ;DISPATCH ON TYPE 

6317 =1000 [PC]__[PC]+1 , J/EDSTOP ; (O) STOP EDIT 

'6318 STATE__[EDIT-SRC] , ;(1) SELECT SOURCE BYTE 

6319 J/EDSEL 

6320 READ [BRX], SKIP DPO, ;(2) START SIGNIFICANCE 

6321 J/EDSSIG 

6322 [BRX ]_[BRX ] . AND . # , ;(3) FIELD SEPERATOR 

6323 #111111-, HOLD RIGHT, 

6324 J/EDNOP 

6325 [BR ]_AC [MARK ] ;(4) EXCHANGE MARK AND DEST 

6326 VMA_.[BR], START READ, 

6327 J/EDEXMD 



6328 = 
6329 



KS10.NK. i [4,31 1 ] MICRO 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16-JULY-1981 



U 3405, 3406,7441 ,0605,4174,4007,0700, 1000,0071 ,0010 

U 3406, 3407,3441 ,0603,4174,4007,0701 , 1000,0043,0000 

U 3407 , 2236 , 4553 , 0500 , 4374 , 4007 , 032 1 , 0000 , 0003 , 0000 

U 2236 , 1 5 1 5 , 3770 , 0303 , 4334 , 40 1 7 , 0700 , 0000 , 004 1 , 0000 

U 2237, 2236,0111,0703,4174,4007,0700,1000,0051,0700 



U 0006 , 3413,4443, 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 0007 , 3424 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2240, 
U 2241 , 



U 3410, 
U 341 1 , 



3661 ,3772,0000, 1275,5007,0701 ,0010,0000, 1444 
3410, 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 



341 1 ,3223,0000,4174,4007,0701 ,0200,0000,0002 
3424 , 3440 , 0303 ,1174, 4007 , 0700 , 0400 , 0000 ,1444 
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EXTEND -- EDIT -- STOP EDIT 

6330 .TOC "EXTEND -- EDIT STOP EDIT" 

6331 

6332 ; HERE TO END AN EDIT OPERATION. PC IS SET TO SKIP IF NORMAL END 

6333 ; OR NON-SKIP IF ABORT 

6334 EDSTOP: [ BR ]__. NOT . [ BRX ] , ; AD WILL NOT DO D. AND. NOT. A 

6335 p E_S#, S#/10 ; PRESET FE 

6336 [AR]_[BRX], 3T , FE_FE+P ;MOVE POINTER, UPBATE PBN 

6337 [ BR ] . AND . # , 3T , ;WAS OLD NUMBER 3? 

6338 #/030000, SKIP ADL.EQ.O ; .. 

6339 =0 

6340 EDSTP1: [AR]_P, J/STAC ;NO--ALL DONE 

6341 [AR]_[AR] + 1, ;YES--BUMP WORD ft 

6342 FE_FE . AND . S# , S#/0700, ; KEEP ONLY FLAG BITS 

6343 J/EDSTP1 ; GO STOP EDIT 
6344 

6345 .TOC "EXTEND EDIT START SIGNIFICANCE" 
6346 

6347 ; HERE WITH DST POINTER IN AR 

6348 =110 

6349 EDSSIG: CALL [EDFLT] ; STORE FLT CHAR 

6350 J/EDNOP ; DO NEXT PATTERN BYTE 
6351 

6352 .TOC "EXTEND EDIT EXCHANGE MARK AND DESTINATION" 

6353 

6354 ; HERE WITH ADDRESS OF MARK POINTER IN BR 

6355 =0 

6356 EDEXMD: Q_AC[DSTP], ; GET DEST POINTER 

6357 CALL [LOADAR] ; GO PUT MARK IN AR 

6358 START WRITE ; START WRITE. SEPERATE STEP TO AVO 

6359 ; PROBLEM ON DPM5 

6360 MEM WRITE, MEM_Q ; PUT OLD DEST IN MARK 

6361 AC[DSTP]_[AR] , J/EDNOP ; PUT BACK DEST POINTER 

6362 



KS10.MC1[4,311] MICRO 31(254) 

EXTEND. MIC [4, 31 1 3 15:06 16- JULY -1981 



U 2244, 2277,3771 ,0003, 1276,6007,0701 ,0010,0000, 1441 
U 2246, 0700,3447,0303,7174,4007,0700,0000,0000,0241 

U 0700, 3444,0551,0303,7274,4007,0700,0010,0000,0241 



U 0702, 2242,3333,0003,4174,4007,0621,0000,0000,0000 

U 0703, 0246,3771,0013,4370,4007,0700,0000,0000,0011 
U 0704, 3405,4443,0000,4174,4007,0700,0000,0000,0000 



U 0705, 3451,3771,0013,4370,4007,0700,0010,0000,0013 
U 0707, 3424,4443,0000,4174,4007,0700,0000,0000,0000 



U 2242, 0705,4443,0000,4174,4007,0700,0000,0000,0000 
U 2243, 3424,4443,0000,4174,4007,0700,0000,0000,0000 



U 0246 , 34 1 3 , 3333 , 0004 ,7174, 4007 , 0700 , 04 10 , 0000 , 0246 
U 0247, 3412,3771 ,0003,-7274,4007,0701 ,0000,0000,0246 



U 3412, 0705,4251,0303,4374,4007,0700,0000,0007,7777 
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6363 . TOC "EXTEND EDIT -- PROCESS SOURCE BYTE" 

6364 

6365 =0* 

6366 EDSEL: [ AR ]_AC [ SRCP ] , ;PICK UP SRC POINTER 

6367 CALL [ GETSRC ] ; GET SOURCE BYTE 

6368 [AR]_[AR]*.5, W0RK[E1] ; PREPARE TO TRANSLATE 

6369 =000 [AR]_[AR]+W0RK[E1 ] , ; GO TRANSLATE BY HALFWORDS 

6370 2T, CALL [TRNAR] ; 

6371 =010 

6372 EDFILL: READ [AR], ;(2) NO SIGNIFICANCE, GO FILL 

6373 SKIP AD.EQ.O, ; SEE IF ANY FILLER 

6374 J/EDFIL1 ; GO TO IT 

6375 STATE_[EDIT-SRC] , ;(3) SIG START, DO FLOAT CHAR 

6376 J/EDSFLT 

6377 =100 J/EDSTOP ;(4) ABORT 

6378 =101 

6379 EDSPUT: STATE_[ EDIT-S+D ] , ;(5) NORMAL, STORE AT DST 

6380 CALL [PUTDST] ; 

6381 =111 

6382 J/EDNOP ;(7) BYTE STORED 

6383 = 
6384 

6385 ;HERE TO COMPLETE STORING FILL 

6386 =0 

6387 EDFIL1: J/EDSPUT , ; STORE FILLER 

6388 J/EDNOP ; NO FILLER TO STORE 
6389 

6390 ; HERE TO DO FLOAT BYTE 

6391 =1 10 

6392 EDSFLT: WORK [ FSIG }_[ ARX ] , • ; SAVE SIG CHAR 

6393 CALL [EDFLT] ; STORE FLOAT CHAR 

6394 [AR]_WORK[FSIG] ; RESTORE CHAR 

6395 [AR]__[AR] . AND . # CLR LH, ; JUST KEEP THE BYTE IN CASE 

6396 0/77777, ; DEST BYTE . GT . 15 BITS 

6397 J/EDSPUT ; GO STORE CHAR WHICH STARTED THIS 



6398 



; KS10.MC1[4,31 1 3 MICRO 31(254) 

; EXTEND. MIC [4, 31 1 3 15:06 16-JULY-1981 



U 3413, 3414,3771 ,0005, 1276,6007,0701 ,0000,0000, 1443 

U 3414, 3415, 3443 , 0500 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 3415, 3416,3771,0005,1276,6007,0701,0000,0000,1444 

U 3416, 2250 , 3333 , 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 2250, 3420,4751,1203,4374,4007,0700,0010,0000,0002 

U 2251, 0740,3771,0003,4365,5007,0621,0200,0000,0002 



U 0740, 3451 ,3551 , 1313,4370,4007,0700,0010,0000,0012 

U 0741, 3417,3551,0606,4374,0007,0700,0000,0040,0000 

U 0746 , 34 1 7 , 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 

U 3417, 0007,3440,0606,0174,4004,1700,0400,0000,0000 



U 2252, 0760,3771,0003,7274,4007,0622,0000,0000,0244 

U 2253, 2254,4251,0303,4374,4007,0700,0000,0000,0077 

U 2254, 3420,01 1 1 ,0703,7174,4007,0700,0010,0000,0240 

U 2255, 0760,3771,0003,4365,5007,0700,0200,0000,0002 



U 0760, 3451 ,3771 ,0013,4370,4007,0700,0010,0000,0012 
U 0761, 3424,4443,0000,4174,4007,0700,0000,0000,0000 
U 0766 , 3424 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3420, 
U 3421, 



3421 ,0551 ,0303,7274,4007,0701 ,0000,0000,0240 
000 1,3443, 0300 ,4174, 4004 , 1 700 , 0200 , 0004 , 00 1 2 



S10 MICROCODE V123, 1 MARCH, 1982 -- SEAN KEENAN, DON D0S5A Page 176 
EXTEND -- EDIT -- PROCESS SOURCE BYTE 

6399 ;SUBRUTINE TO PROCESS FLOAT CHAR 

6400 ; CALL WITH: 

6401 ; AR/ POINTER TO STORE @ MARK 

6402 ; RETURN 7 WITH FLOAT STORED 

6403 EDFLT: [ BR 3_AC [ MARK 3 ; ADDRESS OF MARK POINTER 

6404 VMA_[BR], START WRITE ; READY TO STORE 

6405 [BR3„AC[DSTP3 ; GET DST POINTER 

6406 MEM WRITE, MEM_[ BR 3 ; STORE POINTER 

6407 =0 [AR3_0 XWD [23, ; FETCH FLOAT CHAR 

6408 CALL [ EDBYTE 3 ; GET TBL BYTE 

6409 MEM READ, [ AR 3_MEM , ; GET FLOAT CHAR 

6410 SKIP AD.EQ.O ;SEE IF NULL 

6411 =000 

6412 [FLG3_[FLG3 . OR . # , ;REMEMBER TO BACKUP DST POINTER 

6413 STATE/EDIT-DST, ; WILL ALSO BACKUP SRC IF CALLED 

6414 HOLD LEFT, ; FROM SELECT 

6415 CALL [PUTDST3 ; STORE FLOAT 

6416 =001 [ BRX 3_[BRX 3 . OR . #., #/400000, 

6417 HOLD RIGHT, J/ EDFLT 1 ; NULL 

6418 =110 [BRX3_[BRX] . OR . # , #/400000, 

6419 HOLD RIGHT, J/EDFLT 1 ; MARK STORED 

6420 = 

6421 EDFLT 1 : ACjBRX], ; SAVE FLAGS SO WE DON'T 

6422 . ; TRY TO DO THIS AGAIN IF 

6423 ; NEXT STORE PAGE FAILS 

6424 RETURN [73 ; AND RETURN 
6425 

6426 .TOC "EXTEND -- EDIT -- MESSAGE BYTE" 
6427 

6428 ; HERE WITH SKIP ON S 

6429 =0 

6430 EDMSG: [ AR 3_W0RK [ F I LL 3 , ; GET FILL BYTE 

6431 SKIP AD.EQ.O, 4T , ;SEE IF NULL 

6432 J/ EDMSG 1 ; GO STORE 

6433 [ AR 3_[ AR 3 - AND . # CLR LH, ; GET OFFSET INTO TABLE 

6434 #/77 

6435 =0 [AR3_[AR3+1, W0RK[EO3, ;PLUS 1 

6436 CALL [ EDBYTE 3 ; GET TBL BYTE 

6437 MEM READ, [ AR 3_MEM ; FROM MEMORY 

. 6438 =000 

6439 EDMSG 1 : STATE_J EDIT-DST 3 , ; WHAT TO DO ON PAGE FAILS 

6440 CALL [ PUTDST 3 ;STORE MESSAGE BYTE 

6441 =001 J/EDNOP ; NULL FILLER 

6442 =110 J/EDNOP ; NEXT BYTE 

6443 = 
6444 

6445 EDBYTE: [ AR ]_[ AR 3 +WORK [ EO 3 ; GET OFFSET INTO TABLE 

6446 VMA_[AR3, START READ, ; START MEMORY CYCLE 

6447 RETURN [1] ; RETURN TO CALLER 
6448 



KS10.MC1[4,311] MICRO 31(254) 

EXTEND. MICE4, 311} 15:06 1 6-JULY - 1 98 1 



U 2256 , 3422 ,4551, 0303 , 4374 , 4007 , 0700 , 0000 , 0000 , 0077 

U 2257 , 3424 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3422, 3423, 0115, 0703 ,4174, 4007 ,0700 , 0000 , 0000 , 0000 

U 3423 , 3425,3333, 0003 ,4174, 4007 , 070 1 , 2000 , 0007 , 0000 



U 3424, 
U 3425, 
U 3426, 
U 3427, 
U 3430, 



3425,4443 
3426,3333 
3427,4443 
3430,4443 
3431 ,4443 



,0000,4174, 
,0006,4174, 
,0000,4174, 
,0000,4174, 
,0000,4174, 



4007,0700, 
4007,0701 , 
4007,0700, 
4007,0700, 
4007 , 0700 , 



2000,0071 ,0000 
1000, 0073, 0000 
1000,0051 ,0030 
1000,0040,0000 
1000, 0041 ,0010 



U 3431, 3432,3777,0003,4334,4057,0700,2000,0041,0000 



U 3432 , 2260 , 425 1 , 0303 , 4374 , 4007 , 0630 , 0000 , 0000 , O 1 70 



U 2260 , 2262 , 3447 , 0303 , 4 1 74 , 4007 , 0700 , 2000 , 007 1 , 0000 



U 2261, 2260,3551,0303,4370,4007,0700,0000,0000,0200 

U 2262 , 2262 , 3447 , 0303 , 4 1 74 , 4007 ,0630 , 2000 , 0060 , 0000 

U 2263, 3433,0111,0306,4170,4007,0700,0000,0000,0000 

U 3433 , 3434 , 3770 , 0303 , 4334 , 40 1 7 , 0700 , 0000 , 004 1 , 0000 

U 3434 , 3435,4551, 0606 , 4374 , 0007 , 070O , 0000 , 0070 , 0000 

U 3435 , 3436,4551, 0303 , 4374 , 4007 , 0700 , OOOO , 0003 , 0000 

U 3436 , 3437,3111, 0306 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 

U 3437 , 2 1 1 5 , 3440 , 0606 ,0174, 4007 , 0700 , 0400 ,0000 , 0000 
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6449 .TOC "EXTEND EDIT SKIP" 
6450 

6451 =0 

6452 ; HERE TO SKIP ALWAYS 

6453 EDSKP: [ AR ]__[ AR ] . AND . # , #/77, ; JUST KEEP SKIP DISTANCE 

6454 . J/EDSKP 1 ;CONTINUE BELOW 

6455 ; HERE IF WE DO NOT WANT TO SKIP 

6456 J/EDNOP 

6457 EDSKP 1 : [ AR ]_( [ AR ] + 1 ) *2 ;GIVE 1 EXTRA SKIP 

6458 READ [AR], SCAD/A*2, ; PUT THE ADJUSTMENT 

6459 SCADA/BYTE5, 3T , LOAD SC , ; THE SC 

6460 J/EDN0P1 ;JOIN MAIN LOOP 
6461 

6462 

6463 .TOC "EXTEND EDIT -- ADVANCE PATTERN POINTER " 

6464 

6465 EDNOP: SC_0 ; NO SKIP 

6466 EDNOP 1 : READ [BRX], 3T , FE_P ; PUT PBN IN FE 

6467 FE_FE . AND . S# , S#/30 ; JUST BYTE # 

6468 FE_FE+SC ; ADD IN ANY SKIP DISTANCE 

6469 FE_FE+S#, S#/10 ; BUMP PBN 

6470 [AR]_FE, ; GET NUMBER OF WORDS 

6471 LOAD SC ; PUT MSB WHERE IT CAN BE TESTED 

6472 ; QUICKLY 

6473 [ AR ]_[ AR ] . AND . # CLR LH, ; KEEP ONLY 1 COPY 

6474 #/170, SKIP/SC ; . . 

6475 =0 

6*476 EDN1A: [ AR ]_[ AR ] * . 5 , SC_0, 

6477 J/EDN0P2 ; READY TO SHIFT OFF BYTE WITHIN 

6478 ; WORD 

6479 E AR ]_[ AR ] . OR . # , #/200, ; GET THE SIGN BIT OF THE FE 

6480 HOLD LEFT, ; INTO THE AR. ONLY HAPPENS ON 

6481 J/EDN1A ; SKP 76 OR SKP 77 

6482 =0 

6483 EDNOP 2 : [ AR ]_[ AR ] * . 5 , STEP SC , J/EDN0P2 

6484 [BRX]_[BRX]+[AR] , ; UPDATE WORD ADDRESS 

6485 HOLD LEFT 

6486 [AR]_P ;PUT PBN BACK IN BRX 

6487 [BRX]_[BRX] . AND . # , ; JUST KEEP FLAGS 

6488 #/700000, ; . . 

6489 HOLD RIGHT 

6490 [ AR ]__[ AR ] . AND . # , ; JUST KEEP PBN 

6491 #/030000 

6492 [BRX]_[BRX] .OR. [AR] , ; F INAL ANSWER 

6493 HOLD RIGHT 

6494 AC_[BRX], J/EDITLP ;D0 NEXT FUNCTION 
6495 



o 

; KSIO.Mu i 14,31 1 ] MICRO 31(254) 

; EXTEND. MIC[4, 311] 15:06 16-JULY-1981 



U 0332, 3451,3771,0003,7274,4007,0700,0010,0000,0244 

U 0336, 3440,3771 ,0003, 1276,6007,0701 ,0000,0000, 1443 

U 3440, 2264,0113,0703,1174,4007,0521,0400,0000,1443 

U 2264 , 0002 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 2265, 0332,4443,0000,7174,4007,0700,0000,0000,0244 
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6496 .TOC "EXTEND SUBROUTINES FILL OUT DESTINATION" 

6497 

6498 ; CALL WITH 

6499 ; AC [ DLEN] / NEGATIVE NUMBER OF BYTES LEFT IN DEST 

6500 ; FILL/ FILL BYTE 

6501 ; RETURN [2] WITH FILLERS STORED 

6502 ; 

6503 ; NOTE : THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE 

6504 ; BECAUSE EVERY BYTE STORE DOES A MEMORY READ. 

6505 ; 

6506 =01* 

6507 M0VF1: [ AR ]_WORK [ F I LL ] , 2T , ; GET FILL BYTE 

6508 CALL [PUTDST] ;PLACE IN DEST 

6509 [ AR ]_AC [DLEN ] ; AMOUNT LEFT 

6510 AC[DLEN]_[AR]+ 1 , 3T , ; STORE UPDATED LEN 

6511 SKIP* DPO ; AND SEE IF DONE 

6512 =0 RETURN [2] ; DONE 

6513 MOVFIL: WORK[ FILL ] , J/M0VF1 ; DO ANOTHER BYTE 

6514 ; ENTERING HERE SAVES 150NS 

6515 ; PER BYTE BUT COSTS 300NS 

6516 ; PER FIELD MOVED. I ASSUME (BUT DO 

6517 ; NOT KNOW) THAT THIS SPEEDS 

6518 ; THINGS UP. 
6519 



KS10,MC1[4,3113 
EXTEND. MIC[4, 31 1 ] 



MICRO 
15:06 16-UULY 



31(254) 
-1981 



U 1074, 2276,3333,0003,7174,4007,0520,0410,0000,0242 

U 1075, 0001,4221,OO13,4170,4O04,170O,0000,0O00,O000 

U 1076, 0716,4443,0000,7174,4003,7700,0000,0000,0241 

U 07 1 6 , 3443 , 3447 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 0717, 3441,3770,0303,7174,0007,0700,0000,0000,0241 



U 3441, 3442,0551,0303,7274,4007,0700,0000,0000,0241 



U 3442, 0004,4553,0300,7274,4004,1622,0000,0000,0243 
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6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 
6554 
6555 
6556 



.TOC" EXTEND SUBROUTINES 



GET MODIFIED SOURCE BYTE" 



CALL WITH: 

SLEN = MINUS LENGTH OF STRING 

MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO) 

E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET) 

[AR]_W0RK[SLEN]+1 , CALL [SRCMOD] 
RETURNS: 

1 LENGTH EXHAUSTED 

2 (EDIT ONLY) NO SIGNIFICANCE 

3 (EDIT ONLY) SIGNIFICANCE START: 

4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE 

5 NORMAL: BYTE IN AR 

DROM B SET AS FOLLOWS: 
0\ TRANSLATE 
1 ^OFFSET 
2 EDIT 
4 GVTDBT 



=00 

SRCMOD: 



WORk[SLEN]_[AR] , 

SKIP DPO, 

CALL [GSRC] 

END STATE, RETURN 

W0RK[E1] , B DISP 



[1] 



=1110 [AR]_[AR]*.5, J/XLATE 

FIX [AR] SIGN, W0RK[E1] 



[AR]_[AR]+W0RK[E1 ] , 2T 
[ AR ] . AND . WORK [MSK] , 
SKIP AD.EQ.O, 4T, 
RETURN [43 



PUT BACK SOURCE LENGTH 

SEE IF DONE 

GET A SOURCE BYTE 

DONE 

OFFSET OR TRANSLATE? 
TRANSLATE 

IF WE ARE PROCESSING FULL WORD 
BYTES, AND THEY ARE NEGATIVE, 
AND THE OFFSET IS POSITIVE THEN 
WE HAVE TO MAKE BITS -1 AND -2 
COPIES OF THE SIGN BIT. 

OFFSET 

VALID BYTE? 

SKIP IF OK 

RETURN 4 IF -BAD, 5 IF OK 



KS10.MC1[4,311] MICRO 31(254) 

EXTEND. MIC[4, 31 1 3 15:06 16- JULY- 1981./ 



U 3443, 3444,0551,0303,7274,4007,0701,0000,0000,0241 

U 3444 , 2266 , 3333 , 0003 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 2266, 3662,3445,0303,4174,4007,0700,0010,0000,0000 

U 2267 , 2270, 4553 , 0300 , 4374 , 4007 , 033 1 , 0000 , 0000, 0001 



U 2270, 0721,3441,0403,4174,4003,1701,0000,0000,0000 
U 2271, 2270,3770,0404,4344,4007,0700,0000,0000,0000 



KS10 MICROCODE V123, 1 MARCH, 
EXTEND SUBROUTINES 



1982 SEAN KEENAN, 
TRANSLATE 



DON DOSSA 



Page 180 



6557 
6558 
6559 
6560 
-6561 
6562 
6563 
6564 
6565 
6566 
6567 
6568 
6569 
6570 
6571 
6572 
6573 
6574 



.TOC 

; HERE 
XLATE : 
TRNAR : 



"EXTEND SUBROUTINES -- TRANSLATE" 



WITH BYTE IN AR 1-36. 
[AR]_[AR]+W0RK[E1 ] 
READ [AR] , LOAD VMA , 
START READ 
[AR] [AR]*2, 



=0 

XLATE 1 : 



CALL [LOADARX] 
TR [AR], #/1 

[AR]__[ARX], 3T, 
DISP/DP LEFT, 
J/TRNFNC 

[ARX]__[ARX] SWAP, 
J/XLATE 1 



FETCH TABLE ENTRY. 

COMPUTE ADDRESS 
FETCH WORD 

GET BACK LSB 
BIT 36 IS NOT PRESERVED 

BY PAGE FAILS 
PUT ENTRY IN ARX 
WHICH HALF? 



RH -- COPY TO AR 
DISPATCH ON CODE 
DISPATCH TABLE 
LH -- FLIP AROUND 
START SHIFT 



KS10-MC1[4,311] 
EXTEND. MIC[4, 31 1 3 



MICRO 31(254) 
15:06 16-JULY-1981 



U 072 1 , 2272 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0723 , 0004 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 0725, 0721,5551,0606,4374,0007,0700,0000,0010,0000 

U 0727, 0721,3551,0606,4374,0007,0700,0000,0010,0000 

U 0731, 0721,3551,0606,4374,0007,0700,0000,0020,0000 

U 0733, 0004,3551,0606,4374,0004,1700,0000,0020,0000 

U 0735, 0731,5551,0606,4374,0007,0700,0000,0010,0000 

U 0737, 0721 ,3551 ,0606,4374,0007,0700,0000,0030,0000 



KS10 MICROCODE V123, i MARCH, 1982 SEAN KEENAN, DON DOSSA Page 181 
EXTEND SUBROUTINES TRANSLATE 



6575 ;HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY 

6576 ; THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD. WE 

6577 ; DISPATCH ON FUNCTION AND HAVE: 

6578 ; BRX/ FLAGS 

6579 ; ARX/ TABLE ENTRY IN RH 

6580 ; 

6581 =0001 s > 

6582 ; (O) NOP 

6583 TRNFNC : READ [BRX], SKIP DPO, ;S FLAG ALREADY SET? 

6584 J/TRNRET ; . . 

6585 ;(1) ABORT 

6586 RETURN [4] 

6587 ;(2) CLEAR M FLAG 

6588 [BRX3_[BRX] . AND . NOT . # , 

6589 #/ 100000, HOLD RIGHT, 

6590 d/TRNFNC 

6591 . ; (3) SET M FLAG 

6592 [BRX]_[BRX] .0R.#, 

6593 #/ 100000, HOLD RIGHT, 

6594 J/TRNFNC 

6595 ; (4) SET N FLAG 

6596 TRNSIG : [ BRX ]_[ BRX ] . OR . # , 

6597 #/200000, HOLD RIGHT, 

6598 J/TRNFNC 

6599 ;(5) SET N FLAG THEN ABORT 

6600 [BRX]_[BRX] . OR . # , 

6601 #/200000, HOLD RIGHT, 

6602 RETURN [4] 

6603 ;(6) CLEAR M THEN SET N 

6604 [BRX]„[BRX] . AND . NOT . # , 

6605 #/ 100000, HOLD RIGHT, 

6606 J/TRNSIG 

6607 ; (7) SET N AND M 

6608 [BRX 3_[BRX 3 . OR . # , 

6609 #/300000, HOLD RIGHT, 

6610 J/TRNFNC 
6611 



KS10.Mcr[4,31 1 ] MICRO 31(254) 

EXTEND. MIC[4, 31 1 ] 15:06 16-JULY- 198 1 



u 


2272 , 


0754 , 3333 , 0004 ,4174 


u 


2273, 


0005 , 425 1 , 0403 , 4374 


u 


0754, 


0533,3771 ,0003, 1276 


u 


0755 , 


2273 , 355 1 , 0606 ,4374 


u 


0756 , 


0002 , 377 1 , 0003 , 7274 


u 


0757, 


0003,3771 ,0003, 1276 


u 


0533, 


3445, 1111 ,0703,4174 


u 


0537, 


1074,0551 ,0703,7274 


u 


3445, 


2274,3770,0303, 1 174 


u 


2274, 


1074,3771 ,0003,7274 


u 


2275, 


1074,0551 ,0703,7274 



, 4003 ,7530, 0000 , 0000 , 0000 
, 4004 , 1 700 , 0000 , 0007 ,7777 

,6003, 7701 ,0000,0000, 1443 

, 0007 , 0700 , 0000 , 0040 , 0000 
,4004, 1701 ,0000,0000,0244 
,6004, 1701 ,0000,0000, 1444 

, 4007 , 0700 , 4000 , 0000 , 0000 
, 4007 , 0701 , 0000 , 0000 ,0242 
,4007 , 0520 , 0400 , 0000 ,1443 
, 4007 , 070 1 , 0000 , 0000 , 0242 
, 4007 , 070 1 , OOOO , 0000 , 0242 
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6612 ; HERE TO COMPLETE A TRANSLATE 
6613 

6614 =0 

6615 TRNRET: READ [ARX], SKIP DP18, ; S- FLAG IS ZERO 

6616 B DISP, SKIP DP18, ;SEE IF EDIT OR SIG START 

6617 J/TRNSS ; . . 

6618 TRNSS1: [ AR ]__[ ARX ] . AND . # CLR LH, ;S IS SET, JUST RETURN BYTE 

6619 #/77777, RETURN [5] ; 
6620 

6621 =1100 

6622 TRNSS: [ AR ]_AC [ DLEN ] , ; NO SIG ON MOVE OR D2B 

6623 B DISP, J/TRNNS 1 ;SEE IF D2B 

6624 [ BRX ] _ [ BRX ] . OR . # , ;SIG START ON MOVE OR D2B 

6625 #/400000, HOLD RIGHT, 

6626 J/TRNSS 1 ; RETURN BYTE 

6627 [ AR ]_WORK [ F I LL ] , ;EDIT--NO SIG RETURN FILL 

6628 RETURN [2] ; . . 

6629 [AR]_AC[DSTP] , ; EDIT- -START OF SIG 

6630 RETURN [3] ; . . 
6631 

6632 =1011 

6633 TRNNS1: [AR]_[AR]-1, J/TRNNS2 ; COMPENSATE FOR IGNORING SRC 

6634 [AR]_W0RK[SLEN]+1 , ;DEC TO BIN HAS NO DEST LENGTH 

6635 J/SRCMOD ; JUST UPDATE SRC LENTH 

6636 TRNNS2: A<j [ DLEN ]_[ AR ] TEST, ; PUT BACK DLEN AND 

6637 SKIP DPO ; SEE WHICH IS NOW SHORTER 

6638 =0 [ AR ]_WORK [ SLEN ] , ; DEST IS SHORTER. DO NOT CHANGE 

6639 J/SRCMOD ; AMOUNT LEFT 

6640 [AR]_W0RK[SLEN]+1 , ; GO LOOK AT NEXT BYTE 

6641 J/SRCMOD 
6642 



KS10.MC1[4,311] 
EXTEND. MIC[4, 31 1 ] 



MICRO 31(254) 
15:06 16-UULY-1981 



U 2276, 0001,3771,0003,1276,6004,1701,0000,0000,1443 

U 2277, 3446,3771 ,0003, 1276,6007,0701 ,0000,0000, 1441 

U 3446, 0231,3770,0305,4334,4016,7701,0000,0033,6000 

U 0231 , 3450,3441 ,0503,4174,4007,0700,0000,0000,0000 

U 0233, 3447,3770,0503,4334,4017,0700,0000,0032,6000 

U 3447 , 3450 , 1 1 1 , 0703 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3450, 2300,3440,0303,1174,4007,0700,0400,0000,1441 

U 2300, 3077,3333,0003,4174,4217,0701 , 1010,0073,0500 



U 2301 , 0340,3333,0003,4174,4006,5701 , 1000,0051 ,0770 
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6643 .TOC "EXTEND SUBROUTINES GET UNMODIFIED SOURCE BYTE" 

6644 

6645 ; CALL : 

6646 ; GSRC WITH SKIP ON SOURCE LENGTH 

6647 ; GETSRC IF LENGHT IS OK 

6648 ;WITH: 

6649 ; AC 1/ SOURCE BYTE POINTER 

6650 ; RETURNS: 

6651 ; 1 IF LENGTH RAN OUT 

6652 ; 2 IF OK (BYTE IN AR) 
6653 

6654 =0 

6655 GSRC: [ AR ]_AC [ DLEN ] , ; LENGTH RAN OUT 

6656 RETURN [1] ; RESTORE AR AND RETURN 

6657 GETSRC: [ AR ]_AC [ SRCP ] ; GET SRC PTR 

6658 IBP DP, IBP SCAD, ; UPDATE BYTE POINTER 
6659* SCAD DISP, 3T ;SEE IF OFLOW 

6660 =01 [AR]_[BR], J/ GSRC 1 ; NO OFLOW 

6661 SET P TO 36-S ; RESET P 

6662 [AR]__[AR] + 1 , HOLD LEFT ; BUMP Y 
6663 

6664 GSRC 1 : AC [ SRCP ]_[ AR ] ; STORE UPDATED POINTER 

6665 =0 READ [AR], LOAD BYTE EA,;SETUP TO FIGURE OUT 

6666 FE_P, 3T, CALL [BYTEAS] ; EFFECTIVE ADDRESS 

6667 READ [AR], ; LOOK AT POINTER 

6668 BYTE DISP, ;SEE IF 7 BIT 

6669 • FE_FE . AND . S# , S#/0770, ; MASK OUT P FIELD 

6670 J/LDB1 ;G0 GET THE BYTE 
6671 



o • 

; KS10.MC1 [4,31 1 ] MICRO 31(254) 

; EXTEND. MIC[4, 31 1 ] 15:06 16-JULY-1981 



U 3451, 2302 , 344 1 , 0304 , 4 1 74 , 4007 , 0700 , 0000 0000 , 0000 
U 2302, 3452,3771 ,0003, 1276,6007,0701 ,0010,0000, 1444 

U 2303, 2245,0113,0404,4174,4007,0701,1000,0077,0000 



U 2245, 
U 2247, 



0360 , 3333 , 0003 ,4174, 4006 , 5701 , 0010 , 0000 , 0000 
0006 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 
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6672 .TOC "EXTEND SUBROUTINES STORE BYTE IN DESTINATION STRING" 

6673 

6674 ; CALL WITH: 

6675 ; AR/ BYTE TO STORE 

6676 ; AC4/ DESTINATION BYTE POINTER 

6677 ; RETURNS: 

6678 ; AR & AC4/ UPDATED BYTE POINTER 

6679 ; ARX/ BYTE TO STORE 

6680 ; BR/ WORD TO MERGE WITH 

6681 ; 6 ALWAYS 

6682 ; 

6683 PUTDST: [ARX]_[AR] ; SAVE BYTE 

6684 =0 [AR]_AC[DSTP] , ; GET DEST POINTER 

6685 CALL [IDST] ; BUMP DEST )POINTER 

6686 AD/A+B, A/ARX, B/ARX, -.SHIFT 7-BIT BYTE TO 

6687 SCAD/A, 3T , ; NATURAL PLACE, AND PUT 

6688 SCADA/BYTE5, LOAD FE ; INTO FE 

6689 =0* READ [AR], BYTE DISP, ; GO PUT BYTE IN MEMORY 

6690 CALL [DPB1 ] ; . . 

6691 RETURN [6] ; ALL DONE 
6692 



KS10.MC1[4 f 311] 

EXTEND. MIC[4, 31 1 ] 



15:06 



MICRO 31(254) 
16- JULY- 1981 



U 3452 , 2304 , 3770 , 0305 , 4334 , 40 1 6 , 770 1 , 0000 , 0033 , 6000 

U 2304 , 3454 , 344 1 , 0503 ,4174,4217, 0700 , 0000 , 0000 , 0600 

U 2306 , 3453 , 3770 , 0503 , 4334 , 40 1 7 , 0700 , 0000 , 0032 , 6000 

U 3453, 3454,01 1 1 , 0703 , 4 1 70 , 42 1 7 ,0700 , 0000 , 0000 , 0600 

U 3454, 0230,3440,0303,1174,4006,6701,1400,0073,1444 

U 0230 , 3 102 , 0553 , 0300 , 2274 , 4007 , 070 1 , 0200, 0004 , 07 1 2 

U 0232 , 3 102 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 ,0712 

U 0234, 3455,0553,0300,2274,4007,0701,0200,0004,0612 

U 0236 , 3455 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 06 1 2 

U 3455, 3456,3771,0003,4361,5217,0700,0200,0000,0602 

U 3456, 0230,4443,0000,2174,4006,6700,0000,0000,0000 



U 3556, 2740,4551,0202,4374,0007,0700,0000,0077,7740 
U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 3457, 3460,3771,0003,4365,5007,0700,0200,0000,0002 
U 3460, 0010,3333,0003,7174,4004,1700,0400,0000,0244 



U 3461, 0001,4551,0303,4374,0004,1700,0000,0000,0777 
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6693 .TOC "EXTEND SUBROUTINES UPDATE DEST STRING POINTERS" 

6694 

6695 

6696 ; SUBROUTINE TO BUMP DST POINTERS 

6697 ; CALL WITH: 

6698 ; AR/ AC[DSTP] 

6699 ; RETURN 1 WITH UPDATED POINTER STORED 

6700 ; 

6701 IDST: IBP DP, IBP SCAD, SCAD DISP, 3T 

6702 =0* [AR]_[BR], LOAD DST EA, J/IDSTX 

6703 SET P TO 36-S 

6704 [AR]_JAR]+1, HOLD LEFT, LOAD DST EA 

6705 IDSTX: AC[DSTP]_[AR] , 3T , ; STORE PTR BACK 

6706 FE_P, DISP/EAMODE ; SAVE P FOR CMPDST 

6707 =100* 

6708 DSTEA: VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T , J/BYTFET 

6709 VMA_[ AR ] , START READ, PXCT BYTE DATA, J/BYTFET 

6710 VMA_[AR]+XR, START READ, PXCT/BI S-DST-EA , 3T , J/DSTIND 

6711 VMA_[ AR ] , START READ, PXCT/BIS-DST-EA , J/DSTIND 
6712 

6713 DSTIND: MEM READ, [AR]_MEM, HOLD LEFT, LOAD DST EA 

6714 EA MODE DISP, J/DSTEA 
6715 

6716 

6717 ; HERE TO TEST ILLEGAL BITS SET 

6718 ; CALL WITH : 

6719 ; SKIP IF ALL BITS LEGAL 

6720 ; RETURN [4] IF OK, ELSE DO UUO 

6721 ; 

6722 3556: ; EXTEND OF O COMES HERE 

6723 BITCHK: UUO 

6724 3557: RETURN [4] 
6725' 

6726 ; HERE TO PUT FILL IN [AR] AND WORK[ FILL] 

6727 GTF ILL : MEM READ, ;WAIT FOR DATA 

6728 [AR]_MEM ;PLACE IN AR 

6729 WORK[FILL]_jAR] , ' ; SAVE FOR LATER 

6730 RETURN [10] ; RETURN TO CALLER 
6731 

6732 ; SUBROUTINE TO CLEAR FLAGS IN AR 

6733 CLRFLG : [ AR ]_[ AR ] . AND . # , ; CLEAR FLAGS IN AR 

6734 #/000777, ; . . 

6735 HOLD RIGHT, RETURN [1] 
6736 



\ 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

EXTEND ,MIC[4,311] 15:06 16-JULY-1981 



U 2310, 3474,3771,0003,1276,6O07,O701,0O10,0000,1441 

U 2311, 2676,3440,0505,1174,4007,0700,0400,0000,1441 

U 3462, 3463,377.1 ,0003,7274,4007,0701 ,0000,0000,0214 

U 3463 , 2312,0113, 0703 ,0174, 4007 , 0701 , 0400 , 0000 , 0000 



U 2312, 3474,3771,0003,1276,6007,0701,0010,0000,1444 
U 2313, 2676 , 3440 , 0505 ,1174, 4007 , 0700 , 0400 , 0000 ,1444 



U 3464, 3465, 1771 ,0003,7274,4007,0701 ,4000,0000,0242 

U 3465, 2314,3771,0005,1276,6007,0522,0000,0000,1443 

U 2314, 3467,3440,0303,1174,4007,0700,0400,0000,1443 

U 2315, 2316, 344 1 , 0304 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2316, 3672,3551,0404,7274,4007,0701,0010,0000,0214 

U 2317, 3466,1111,0503,4174,4007,0700,4000,0000,0000 

U 3466, 2676,3440,0303,1174,4007,0700,0400,0000,1443 

U 3467, 3471,0111,0503,4174,4007,0700,0000,0000,0000 

U 3470, 3471,1771,0003,7274,4007,0701,4000,0000,0242 

U 3471, 3472,3551,0303,7274,4007,0701,0000,0000,0214 

U 3472 , 2676 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 

U 3473, 3465,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 3474, 0001,3770,0305,4334,4014,1700,0000,0043,6000 
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6737 


. TOC 


6738 




6739 


;BACK UP 


6740 


=0 


674 1 


BACKS : 


6742 




6743 




6744 




6745 


CMSDST : 


6746 




6747 


;BACK UP 


6748 


=0 


6749 


BACKD : 


6750 




675 1 




6752 




6753 


• FAI LURE 


6754 


STRPF : 


u / 33 


"sTPPPO ■ 
o I t\rru, 


6756 




6757 


=0 


6758 




6759 




6760 ' 


=0 


676 1 




6762 




6763 


STRPF3 : 


6764 




6765 




6766 


STPF 1 A : 


6767 




6768 


PFDRTN • 


6769 


STRPF2 : 


6770 


PFGACO: 


6771 




6772 


STRPF4 : 


6773 




6774 


BACKBP: 


6775 




6776 





"EXTEND 



PAGE FAIL CLEANUP" 



[AR]_AC[SRCP] , 
CALL [BACKBP] 
AC[SRCP]_[BR] , 



AC_[ARJ+1, 3T 



[AR]_AC[DSTP] , 
CALL [BACKBP] 
AC[DSTP] [BR], 



J/CLDISP 



; BACKUP BP 



; GET OLD SRC LEN 
; BACK UP 



J/CLDISP 



[AR]_-WORK[SLEN] 
[BR ]_AC[DLEN] , 4T , 
SKIP DPO 



; GET AMOUNT LEFT 

;WHICH STRING IS LONGER? 



AC[DLEN]_[AR] , J/ STPF 1 A ; SRC LONGER 
[ARX]_[AR] ;COPY SRC LENGTH 

[ARX] [ ARX ] . OR . WORK[ SV . BRX ] , ; REBUI LD FLAGS 



CALL [AC_ARX] 
[AR]_[AR]-[BR] 
AC [DLEN]_[ AR ] ; 
J/CLDISP 

[AR]_[AR]+[BR] , J/STRPF2 



RESET AC ] SLEN] 
MAKE DEST LEN 
PUT BACK DEST LEN 
DO NEXT CLEANUP 



[AR]__-WORK[SLEN] .-RESTORE LENGTH 

[ AR ]__[ AR ] .OR. WORK [SV. BRX] 

AC_[AR], J/CLDISP ;PUT BACK SRC LEN AND FLAGS 



[AR]_. NOT. WORK [SLEN] , J/STRPFO 

IBP DP, SCAD/A+B, SCADA/BYTE 1 , SCADB/SIZE, 
RETURN [1] 



;P P+S 



KS10.MC1[4,311] 

IN0UT.MIC[4,31 1 ] 



MICRO 
14:52 16-JULY- 



31.(254) 
1981 



U 3475 , 3476 , 374 1 , 104 , 4074 , 4007 , 0700 , 0000 , 0000 , 0000 
U 3476 , 2320 , 3333 , 0004 ,7174, 4007 , 0340 , 0400 , 0000 ,0425 



U 2320, 3477,0111, 1103,4364,4007,0700,0200,0024, 1016 



U 2321, 3477,0111, 1003,4364,4007,0700,0200,0024, 1016 
U 3477 , 3500 ,3771, 0002 ,4365,5617, 0700 , 0200 , 0000 , 0002 
U 3500 , 2322,4553, 0200 , 4374 , 4007 , 032 1 , 0000 , 0070 , 0000 



U 2322 , 2717, 4443 , 0000 ,4174,4467, 0700 , 0000 , 000 1 , 0000 
U 2323 , 2740 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
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6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 



. TOC 



"TRAPS'* 



TRAP: [ARX]_PC WITH FLAGS 
WORK[TRAPPC]_[ARX] , 
SKIP KERNEL 

=0 [AR]_[AR]+[UBR] , 

MEM READ. 



START READ, 
VMA PHYSICAL, 
J/TRP1 

[ AR ] [ AR ]+ [ EBR ] , 

MEM READ, 



START READ, 
VMA PHYSICAL, 
J/TRP1 

TRP1: MEM READ, [HR]_MEM, 

LOAD INST 

[ HR ] - AND . # , 

#/ 700000, 3T, 

SKIP ADL.EQ.O 
=0 CHANGE FLAGS, 

HOLD USER/ 1 , 

J/XCT1 

UUO 



SAVE THE PC WHICH CAUSED THE 
TRAP 

SEE IF UBR OR EBR 

ADDRESS OF INSTRUCTION 

WAIT FOR PREFETCH TO GET INTO 

THE CACHE. MAY PAGE FAIL BUT 

THAT IS OK 
START FETCH 
ABSOLUTE ADDRESSING 
JOIN COMMON CODE 

WE COME HERE IN EXEC MODE 
WAIT FOR PREFETCH TO GET INTO 

THE CACHE.. MAY PAGE FAIL BUT 

THAT IS OK 
START FETCH 
ABSOLUTE ADDRESSING 
JOIN COMMON CODE 

PLACE INSTRUCTION IN HR 
LOAD IR, XR, @ 
TEST TO SEE IF THIS 
IS A UUO 

NOT A UUO 
CLEAR TRAP FLAGS 
DO THE INSTRUCTION 
DO THE UUO 



n 

; KS10.MCi[4,311] MICRO 31(254) 

; IN0UT.MIC[4,31 1 ] 14:52 16-JULY-1981 



1200, 1700,4100 
1200, 1720,4100 



2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , O007 , 0700 , 0000, 0077 , 7740 
3503 ,3771, 0005 , 4304 , 4007 , 070 1 , 0000 , 0000 , 0000 
3501 ,3771 ,0005,4304,4007,0701 ,0000,0000,0000 

2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 ,7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
3504 ,3441,1 405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3502 ,3441,1 405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



2740 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 ,7740 



2740, 
2740, 
2740, 
2740, 
2740, 
2740, 
2740, 
2740, 



4551 , 
4551 , 
4551 , 
4551 , 
4551 , 
4551 , 
4551 , 
4551 , 



0202, 
0202, 
0202, 
0202, 
0202, 
0202, 
0202, 
0202, 



4374, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374 



0007, 

0007 

0007, 

0007 

0007 

0007, 

0007 

0007 



0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 



0000. 
0000, 
0000, 
0000, 
0000, 
0000. 
0000. 
0000. 



0077, 
0077 , 
0077, 
0077, 
0077, 
0077, 
0077, 
0077, 



7740 
7740 
7740 
7740 
7740 
7740 
7740 
7740 



3502 , 425 1 , 0505 , 4374 , 4007 , 0700 , 0000 ,0000 ,7770 
0260 ,4113, 0305 , 4 1 74. , 4007 , 0330 , 0000 , 0000 , 0000 



U 3503 
U 3504 



3504 , 425 1 , 0505 , 4374 , 4007 , 0700 , 0000 , 0000 ,7770 
1 400 ,4113, 0305 ,4174, 4007 , 0330 , 0000 , 0000 , 0000 
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6808 




TOC "10 


- TNJTFRMAI nFUTPF 5 ;" 

1 IN 1 urslNML Ulv l^Co 


6809 








68 10 




DCODE 




68 1 1 


700 : 


IOT,AC DISP, 


J/GRP700 


68 1 2 




IOT,AC DISP, 


J/GRP701 


68 1 3 




.UCODE 




68 1 4 








68 1 5 


1701 


UUO 


; DATAI APR, 


68 1 6 


1702 


UUO 


; BLKO APR, 


6817 


1703 


UUO 


; DATAO APR, 


CO io 


1706 


[BR] APR, J/APRSZ ;CONSZ APR, 




1707 


[BR] APR, J/APRSO ; CONSO APR, 


coon 


1710 






COO 4 


RDERA: UUO 


; BLKI PI, 




1711 


UUO 


; DATAI PI, 


Do<dO 


1712 


UUO 


; BLKO PI , 


O O <L 


1713 


UUO 


; DATAO PI, 


6825 


1716 


[BR] [PI], J/CONSZ ;CONSZ PI, 


6826 


1717 


[BR] [PI], J/CONSO ;CONSO PI, 


6827 








6828 


1720 






6829 


GRP701: UUO 


; BLKI PAG, 


6830 


1726 


UUO 


;CONSZ PAG, 


683 1 


1727 


UUO 


; CONSO PAG, 


6832 








6833 


;680I AND CACHE SWEEP 


STUFF 




1730 


UUO 




c: q c; 

OOOJ 


1731 


UUO 




DO OO 


1732 


UUO 




C007 
000 / 


1733 


UUO 




0000 


1734 


UUO 




U003 


1735 


UUO 




6840 


1736 


UUO 




684 1 


1737 


UUO 




6842 








6843 


APRSO: [BR] [BR]. AND 


# CLR LH, #/7770 


6844 


CONSO: [BR] .AND. [AR] 


SKIP ADR.EO.O, J/SKIP 


6845 








6846 


APRSZ: [BR] [BR]. AND 


# CLR LH, #/7770 


6847 


CONSZ : [BR] .AND. [AR] 


SKIP ADR.EO.O, J/DONE 


6848 









KS10.MC1[4,311] 
IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
.14:5.2 16- JULY- 198 1 



U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001 



U 0137, 3614,3771,0005,4374,0007,0700,0000,0000,0123 



U 1704, 3505,3771,0005,7274,4007,0701,0000,0000,0230 



U 3505, 
U 3506, 
U 3507, 



3510, 
351 1 , 
2324, 
2325, 
2326, 
2327, 
35*2, 
2330, 
2331 , 
2332, 
2333, 



U 2334, 
U 2335, 

U 3513, 

U 3514, 



3506, 
3507, 
3510, 

351 1 , 
2324, 
2325, 
2326, 
2327, 
3512, 
2330, 
2331 , 
2332, 
2333, 
2334, 

3515, 
3513, 

3514, 

1400, 



5551 , 
4551 , 
3111, 

4551 , 
4553, 
3111, 
4553, 
5111, 
3771 , 
4553, 
5111 , 
4553, 
3111, 
4553, 

3333, 
3333, 

3333, 

3333, 



0505, 
0304, 
0405, 

0304, 
0300, 
0405, 
0300, 
0405, 
0006, 
0300, 
Q406, 
0^00, 
0406, 
0300, 

0006, 
0005, 

0005, 

0005, 



4370, 
4374, 
4174, 

4374, 
4374, 
4174, 
4374, 
4174, 
4304, 
4374, 
4174, 
4374, 
4174, 
4374, 

4174, 
4174, 

4174, 

7174, 



4007 ,0700 , 0000 , 0000 , 0007 
4007 , 0700 , 0000 , 0000 , 0007 
4007 , 0700 , OOOO , 0000 , 0000 



4007 

4007 

4007 

4007. 

4007, 

4007, 

4007, 

4007 

4007, 

4007, 

4007 , 



0700, 
0331 , 
0700, 
0331 , 
0700. 
0701 , 
0331 , 
0700, 
0331 . 
0700. 
0331 , 



0000, 
0000. 
0000, 
0000, 
0000. 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0000, 

0010, 
0000, 
0004 , 
0000, 
0000, 
0002, 
0000, 
0001 , 
0000, 
0003, 



7760 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



, 4007 ,0700 , 0000 , OOOO , 0000 
, 4007 , 0700 , OOOO , OOOO , OOOO 

, 4257 , 0700 , OOOO , OOOO , OOOO 

, 4007 , 0700 , 0400 , OOOO , 02 30 



U 3515, 3516, 3333 , 0006 ,4174,4237, 0700 , OOOO , OOOO , OOOO 
U 3516, 3517,5551, 0606 , 4370 , 4007 , 0700 , OOOO , OOOO , 2000 



U 3517, 2335 , 3333 , 0006 ,4174,4237, 0700 , OOOO , OOOO , OOOO 
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6849 1700: 

6850 GRP700: 

6851 APRID: [BR]_#, 

6852 #/4097. 

6853 137: [BR]_#, 

6854 MICROCODE OPTIONS/OPT, 

6855 MICROCODE VERSION/UCV, 

6856 HOLD RIGHT, 

6857 U/RTNREG 
6858 

6859 1704: 

6860 WRAPR: [ BR ]_WORK [ APR ] 

6861 [BR]__[BR] - AND. NOT. #, ; CLEAR THE OLD PIA 

6862 0/7, HOLD LEFT ; . . 

6863 [ ARX 3 C AR ] . AND . tt , ff/1 ; PUT NEW PIA IN ARX 

6864 [BR]_[BR] .OR. [ARX] ; PUT NEW PIA IN BR 

6865 [ARX3_[AR3 - AND . # , ; MASK THE DATA BITS 

6866 #/007760 ; DOWN TO ENABLES' 

6867 TR [AR], #/100000 ; WANT TO ENABLE ANY? 

6868 =0 [BR]_[BR] .OR. [ARX] ■ ;YES--SET THEM 

6869 TR [AR], #/40000 ; WANT TO DISABLE ANY? 

6870 =0 [BR]_[BR] .AND. NOT. [ARX] ;YES--CLEAR THEM 

6871 [BRX]_APR ; GET CURRENT STATUS 

6872 TR [AR], #/20000 ; WANT TO CLEAR FLAGS? 

6873 =0 [BRX]_[BRX] . AND . NOT . [ARX] ;YES--CLEAR BITS 

6874 TR [AR], #/10000 ; WANT TO SET ANY FLAGS? 

6875 =0 [BRX]_[BRX] .OR. [ARX] ;YES--SET FLAGS 

6876 TR [AR], #/30000 ; ANY CHANGE AT ALL? 

6877 =0 READ [BRX], ; YES — LOAD NEW FLAGS 

6878 J/WRAPR2 ; TURN OFF INTERRUPT 8080 

6879 WRAPR 1 : READ [BR] ;FIX DPM TIMING BUG 

6880 READ [BR], ; ENABLE CONDITIONS 

6881 SET APR ENABLES 

6882 WORK[APR]_[BR] , ;SAVE FOR RDAPR 

6883 J/DONE ; ALL DONE 
6884 

6885 WRAPR2: READ [BRX], ; LOAD NEW FLAGS 

6886 SPEC/APR FLAGS ; . . 

6887 [ BRX.] _[ BRX ] . AND . NOT . tt , ; CLEAR INTERRUPT THE 8080 

6888 #/002000, HOLD LEFT ; FLAG 

6889 READ [BRX], ; LOAD NEW FLAGS 

6890 SPEC/APR FLAGS, ; .. 

6891 J/WRAPR 1 ;LOOP BACK 
6892 



KS10.MC1[4,311] MICRO 31(254) 

IN0UT.MIC[4, 31 1 ] 14:52 16-cJULY- 198 1 



U 1705, 3520,3771,0005,7274,4007,0701,0000,0000,0230 

U 3520, 3521,3770,0505,4344,0007,0700,0000,0000,0000 

U 3521, 3522,4551,0505,4374,0007,0700,0000,0000,7760 

U 3522 , 3523 , 455 1 , 0505 , 4370 , 4007 , 0700 , 0000 , 0000 , 0007 

U 3523, 3524,3771 ,0004,4304,4007,0701 ,0000,0000,0000 

U 3524 , 3525 ,4251, 0404 , 4374 , 4007 , 0700 , 0000 , 0000 ,7770 

U 3525, 3614,3111,0405,4174,4007,0700,0000,0000,0000 
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6893 


1 705 : 






6894 


nn Ann . 

RDAPR : 


r n n 1 iiinni/ r t nn 1 

L BR J_wuRK L APR J 




6895 




Tori! r nn 1 r ij * n 

tBRJ_LBRJ SWAP, 


; PUT ENABLES IN BOTH 


6896 




HOLD RIGHT 


; HALVES 


6897 




r o n 1 r nn 1 « Kin jj 

LBRJ_LBRJ . AND . # , 


; SAVE ENABLES IN LH 


6898 




it f —i —i r- r\ 

#/ 7760 , 




6899 




un i pi n t put 








LbKJ_[bKJ . AND . if , 


• CAV/C DT A TM D l_l 
J bAV t rlA IN KM 


ar~s a 

O t7\J 1 




it/ i , 




6902 




HOLD LEFT 




6903 




[ARX] APR 


; READ THE APR FLAGS 


6904 




[ARX] [ARX] . AND . # CLR 


LH, ; MASK OUT JUNK 


6905 




#/007770 


; KEEP 8 FLAGS 


6906 




[BR] [BR] .OR. [ARX] , 


; MASH THE STUFF TOGETHER 


6907 




J/RTNREG 


; RETURN 


6908 









KS10.MC1 [4,31 1 ] 
IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-JULY-1981 



U 1723, 3526 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 3526 , 2336 , 377 1 , 0003 , 4365 , 5007 , 052 1 , 0200 , 0000 , 0002 

U 2336, 2340,4551 ,0303,4374,0007,0321 ,0000,0010,0000 

U 2337, 3527,4551,1111,4374,0007,0700,0000,0077,0077 

U 3527 , 2340 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 ,00 10 , OOOO 

U 2340, 3530,4551 ,0305,4374,4007,0700,0000,0001 ,7777 

U 2341 , 1400,31 1 1 ,031 1 ,4174,0477,0700,0000,0000,0000 

U 3530 , 2342 , 422 1 , 0005 ,4174, 0007 , 0700 , 2000 , 007 1 , 0007 

U 2342 , 2342 , 3445 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2343, 3531,4551,1111,4374,0007,0700,0000,0077,7774 

U 3531 , 3532,4221 ,001 1 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3532 , 3533 , 3 1 1 1 , 05 1 1 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 



U 3533, 2410,31 1 1 ,031 1 ,4174,0477,0700,0000,0000,0000 
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6909 


.TOC 


H I0 -- INTERNAL DEVICES - 


•- EBR & UBR" 


6910 








691 1 


1723: 






6912 


WRUBR : 


VMA [AR], 


LOAD E INTO VMA 


6913 




START READ 


START MEMORY 


6914 




MEM READ, 


WAIT FOR DATA 


6915 




[AR] MEM, 3T, 


PUT IT INTO THE AR 


6916 




SKIP DPO 


SEE IF WE WANT TO LOAD 


6917 






AC BLOCK NUMBERS 


6918 


=0 


[AR] [ AR ] . AND . # , 


NO- -CLEAR JUNK IN AR 


6919 




#/ 100000, 


LEAVE ONLY LOAD UBR 


6920 




HOLD RIGHT, 


IN LEFT HALF 


6921 




SKIP ADL.EQ.O, 3T , 


;SEE IF WE WANT TO 


6922 




U/ACBSET 


SKIP AROUND UBR LOAD 


6923 




[UBR] [UBR] . AND . # , 


MASK OUT THE OLD 


6924 




#/770077, 


AC BLOCK NUMBERS 


6925 




HOLD RIGHT 


IN THE LEFT HALF 


6926 




[AR] . AND . # , 


SEE IF WE WANT TO LOAD 


6927 




Ul 100000, 3T, 


UBR ALSO 


6928 




SKIP ADL.EQ.O 




6929 


=0 






6930 


ACBSET: 


[BR] [ AR ] . AND . # , 


COPY UBR PAGE NUMBER 


6931 




#/17777, 


INTO BR 


6932 




J/SETUBR 


GO LOAD UBR 


6933 




[UBR]_[UBR] .OR. [AR] , 


DO NOT LOAD UBR 


6934 






PUT AC BLOCK # IN 


6935 




HOLD RIGHT, 


THE LEFT HALF 


6936 




LOAD AC BLOCKS, 


LOAD HARDWARE 


6937 




J/DONE 


ALL DONE 


6938 


SETUBR: 


[BR] 0, 


CLEAR BR LEFT 


6939 




SC 7, 


PUT THE COUNT IN SC 


6940 




HOLD RIGHT 




6941 


=0 






6942 


STUBRS: 


[BR] [BR]*2, 


SHIFT BR OVER 


6943 




STEP SC, 


9 PLACES 


6944 




U/STUBRS 




6945 




[UBR] [UBR] . AND. 


MASK OUT OLD UBR 


6946 




#/777774, 


BITS IN 


6947 




HOLD RIGHT 


LEFT HALF 


6948 




[UBR ] 0, 


CLEAR RIGHT HALF 


6949 




HOLD LEFT 




6950 




[UBR] [UBR] .OR. [BR] 


PUT IN PAGE TABLE ADDRESS 


6951 




[UBR] [UBR] .OR. [AR] , 


PUT IN AC BLOCK # 


6952 




HOLD RIGHT, 


IN LEFT HALF 


6953 




LOAD AC BLOCKS, 


TELL HARDWARE 


6954 




U/SWEEP 


CLEAR CACHE 


6955 









; KS10.MC1[4,31 1 ] MICRO 31(254) 

; INOUT.MIC[4,311] 14:52 16-JULY-1981 



U 1724, 2344,3445,0303,4174,4007,0700,2000,0071,0006 
U 2344 , 2344 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



U 2345, 3534,3771,0005,7274,4007,0701,0000,0000,0230 

U 3534 , 3535 , 455 1 ,0505 , 4370 , 4007 , 0700 , 0000 , 0074 ,7777 

U 3535 , 2346 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0020 

U 2346, 2347,3551, 0505 , 4370 , 4007 , 0700 , 0000 , 0003 , 0000 

U 2347, 3536,3333,0005,4174,4257,0700,0000,0000,0000 

U 3536 , 3537 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 0230 

U 3537, 3540,3441,0310,4174,4007,0700,0000,0000,0000 

U 3540, 2350,4553,1000,4374,4007,0321,0000,0000,0040 

U 2350, 2410,3551 , 1010,4374,0007,0700,0000,0040,0000 

U 2351 , 2410,5551 , 1010,4374,0007,0700,0000,0040,0000 



U 1725, 2352,3447, 1005,4174,4007,0700,2000,0071 ,0006 

U 2352 , 2352 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 2353, 3541 ,4551 ,0505,4374,4007,0700,0000,0006,3777 



U 3541, 3614,4221,0005,4174,0007,0700,0000,0000,0000 



U 1721 , 2354,3441 , 1 1O5,4174,40O7,O700,OO0O,OOO0,0OO0 
U 2354, 2356,3447,0506,4174,4007,0700,2010,0071,0006 



U 2355, 3614,4551,0505,4374,0007,0700,0000,0050,7700 

\ 

U 3542, 3543,3441 , 1105,4174,4007,0700,0000,0000,0000 
U 3543 , 2356 , 3447 , 0506 ,4174, 4007 , 0700 , 2000 , 007 1 , 0006 



U 2356 , 2356 , 3447 , 0606 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 2357, 3544,4551 ,0606,4374,4007,0700,0000,0001 ,7777 
U 3544, 0001,3441,0605,4170,4004,1700,0000,0000,0000 
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6956 
6957 
6958 
6959 
6960 
6961 
6962 
6963 
6964 
6965 
6966 
6967 
6968 
6969 
6970 
6971 
6972 
6973 
6974 
6975 
6976 
6977 
6978 
6979 
6980 
6981 
6982 
6983 
6984 
6985 
6986 
6987 
6988 
6989 
6990 
6991 
6992 
6993 
6994 
6995 
6996 
6997 



1724: 
WREBR: 
= 

WREBR 1 : 
. IF/FUL 



=0 
. ENDIF/ 



1725 : 
RDEBR : 
=0 

RDEBR 1 : 



1721 : 
RDUBR : 
=0 



GETPCW: 
=0 

GTPCW1 : 



[AR]_[AR]*2, SC_6 

[AR]_[AR]*2, STEP SC , J/WREBR 1 
L ;D0 NOT ENABLE PAGING IN SMALL 

; MICROCODE. 

[BR]_WORK[APR] 

[BR]__[BR] . AND . # , #/747777, HOLD LEFT 
[ AR ] . AND . # , #/20, 3T, SKIP ADL.EQ.O 
[ BR ]_[ BR ] . OR . # , #/030000, HOLD LEFT 
READ [BR], SET APR ENABLES 
W0RK[APR]_[BRJ 
FULL 
[ EBR ]_[ AR ] 

[EBR]. AND. #, 0/40, 3T, SKIP ADL.EO.O 
[EBR]_[EBR] . OR . # , #/400000, HOLD RIGHT, J/SWEEP 
[EBR]__[EBR] . AND . NOT . # , #/400000, HOLD RIGHT, J/SWEEP 



[ BR ]_[ EBR ] * . 5 , SC_6 

[BR]_[BR]*.5, STEP SC , J/RDEBR 1 
[ BR ]_[ BR ] . AND . # , #/63777 ; MASK TO JUST EBR 



[BR]_0, 
HOLD RIGHT, 
J/RTNREG 



CLEAR LEFT HALF 

BITS 
RETURN ANSWER 



[BR]_[UBR] 

[BRX]_[BR]*.5, SC_6, CALL [GTPCW1 ] 
[BR]_JBR] . AND. #, ; JUST RETURN USEFUL 

#/507700, HOLD RIGHT, ; BITS 
J/RTNREG 



[BR]_[UBR] 
[BRX]_[BR]* . 5, 



SC 6 



[BRX]_[BRX]*.5, STEP SC , J/GTPCW 1 
[ BRX ]_[BRX ] . AND . # , # / '17777 
[BR]_[BRX], HOLD LEFT, RETURN [1] 



KS10.MC1[4,311] 

IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-UULY-1981 



D 0702, 1216,1760,4700 



U 1760 

U 1761 

U 1762 

U 1763 

U 1766 

U 1767 



U 1770 
U 3545 
U 3546 

U 1771. 
U 3547 
U 3550 

U 1772 
U 3551 
U 3552 

U 1773 
U 3553 
U 3554 

U 1776 
U 3555 
U 3560 
U 1777 



36 1 4 , 377 1 , 0005 , 7274 , 4007 , 0701 , 0000 , 0000 , 02 1 5 

36 1 4 , 377 1 , 0005 , 7274 , 4007 , 070 1 , 0000 , 0000 , 02 1 6 

36 1 4 , 377 1 , 0005 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0220 

36 1 4 , 377 1 , 0005 , 7274 , 4007 ,070 1 , 0000 » 0000 , 02 1 7 

36 1 4 , 377 1 , 0005 , 7274 , 4007 ,070 1 , 0000 , 0000 ,0227 
2740 , 455 1 , 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 



3545 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 
3546 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 
1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 5 

3547 , 4443 , 0000 ,4174, 4007 , 0700 ,0200 , 0004 , 0002 
3550 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 
1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 6 

3551, 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 
3552 , 377 1 , 0003 , 4365 , 5007 , 0700, 0200, 0000, 0002 
1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0220 

3553 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 ,0004 , 0002 
3554 ,3771, 0003 , 4365 , 5007 ,0700 , 0200 , 0000 , 0002 
1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0217 

3555 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 
3560 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 
1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0227 
2740 , 4551 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
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4 6998 


. TOC 


"10 -- INTERNAL DEVICES KL PAGING 


* 6999 




. DCODfe 


7000 




7001 


702 : 


IOT,AC DISP, M, U/GRP702 


7002 




. UCODE 


7003 






7004 


1760 : 




7005 


GRP702 : 




7006 


RDSPB : 


fBRl WORKfSRRl J/RTNRFG 


7007 


1 76 1 : 




7008 




l Ui"v J WUr\r\ [ UDK J , U/ rs 1 IMKCv) 


7009 


1 762 : 




7010 


RDPUR : 


fBRl WORKrPURl J/RTNRFG 


701 1 


1 763 : 




701 2 


RDCSTM : 


fBRl WORKfCSTMl J/RTNRFG 


701 3 


1766 : 




7014 


RDHSB : 


[BR] WORK[HSBADR ] , J/RTNREG 


7015 


1767 : 


UUO 


7016 






701 7 


1770: 




7018 


WRSPB : 


START READ 


7019 




MEM READ, [AR] MEM 


7020 




W0RK[SBR3 [ AR 3 , U/DONE 


702 1 


177 1 : 




7022 


WRCSB : 


START READ 


7023 




MEM READ, [AR3 MEM 


7024 




W0RK[CBR3 [AR37 J/DONE 


7025 


1 772 : 




7026 


WRPUR : 


START READ 


7027 




MEM READ, [AR3 MEM 


7028 




WORK [PUR 3 [AR37 u/DONE 


7029 


1773 : 




7030 


WRCSTM: 


START READ 


7031 




MEM READ, [AR] MEM 


7032 




WORK[CSTM3_[AR3 , J/DONE 


7033 


1776: 




7034 


WRHSB: 


START READ 


7035 




MEM READ, [ AR 3 MEM 


7036 




WORK [ HSBADR 3 EAR 3, J/DONE 


7037 


1777: 


UUO 


7038 







KS10.MC1 [4,31 1 ] MICRO 31(254) 

IN0UT.MIC[4,311] 14:52 16-JULY-1981 



U 3561, 3562,3771,0003,7274,4117,0701,0000,0000,0301 

U 3562, 3563,4751 , 1205,4374,4007,0700,0000,0001 ,0000 

U 3563, 3564,0111,0503,4174,4007,0700,0000,0000,0000 

U 3564 , 2360 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 



u 


2360, 


3565,3333,0003,7174 


u 


2361 , 


2305,3771 ,0003,7274 


u 


2305, 


3573,01 1 1 ,0703,4174 


u 


2307 ; 


2360,4221 ,0003,4174 


u 


3565, 


3566,3771 ,0003,7274 


u 


3566, 


2362, 1111 ,0503,4174 



, 4007 , 0700 , 0400 , 0000 , 030 1 
, 4007 , 070 1 , 0000 , 0000 , 0300 

, 4007 , 0700 , 00 1 O , 0000 , 0000 

, 4007 , 0700 , 0000 , 0000 , 0000 
, 4007 , 070 1 , 0000 ,0000 , 0303 

, 4007 , 042 1 , 4000 , 0000 , 0000 



U 2362, 0002,3333,0003,7174,4004,1700,0400,0000,0303 

U 2363, 3567,3771 ,0003,7274,4007,0701 ,0000,0000,0302 

U 3567, 3570,3771 ,0005,4304,4007,0701 ,0000,0000,0000 

U 3570, 3571,3551,0505,4374,4007,0700,0000,0000,0040 



U 3571, 2362 , 3333 , 0005 ,4174, 4237 , 0700 , 0000 , 0000 , 0000 
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7039 


. TOC 


"10 -- INTERNAL DEVICES 


7040 






704 1 






7042 






7043 


TICK: 


[ AR ]_W0RK[TIME 1 ] , 


7044 




SPEC/CLRCLK 


7045 






7046 


TOCK : 


[BR]_0 XWD [ 10000] 


7047 




[AR] [ AR ] + [ BR ] 


7048 




FIX [AR] SIGN, SKIP DPO 


7049 


=0 




7050 


TOCK 1 : 


W0RK[TIME1 ]_[AR] , 


7051 




J/T0CK2 


7052 




[AR]_W0RK[TIMEO] 


7053 


=0* 


[AR]_[AR]+1 , 


7054 




CALL [WRTIM1] 


7055 




[AR]_0, 


7056 




J/TOCK 1 


7057 


T0CK2 : 


[ AR ]_WORK [ TTG ] 


7058 




[ AR]_[ AR] - [BR] , 


7059 




SKIP AD.LE.O 


7060 


=0 




706 1 


T0CK3 : 


WORK[TTG]_[ AR ] , 


7062 




RETURN [2] 


7063 




[AR] WORK[PERIOD] 


7064 




[BR] APR 


7065 




[BR] [BR].OR.#, #/40 


7066 




READ [BR], 


7067 




SPEC/APR FLAGS, 


7068 




J/T0CK3 


7069 







TIMER CONTROL" 



BEGIN [123] 

GET LOW WORD 

CLEAR CLOCK FLAG 

END [123] 

2^12 UNITS PER MS 

INCREMENT THE TIMER 

SEE IF IT OVERFLOWED 

STORE THE NEW TIME 

SKIP OVER THE OVERFLOW CODE 

; GET HIGH WORD 

BUMP IT 

STORE BACK IN RAM 
CAUSE LOW WORD WORD 
TO GET STORED 

; COUNT DOWN TIME TO GO 
;SEE IF IT TIMED OUT 

;SAVE NEW TIME TO GO 
; ALL DONE 

GET CURRENT FLAGS 

SET TIMER INTERRUPT FLAG 

PLACE ON DP AND 

LOAD INTO HARDWARE 
ALL DONE 



KS10.MC1 [4,31 1 ] 
IN0UT.MIC[4,31 1] 



MICRO 31(254) 
14:52 16-JUL.Y-1981 



U 1774, 3572 , 4443 , OOOO ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3572, 1 1 14,3771 ,0003,4365,5007,0.700,0200,0000,0002 

U 1114, 3662,0111,0702,4170,4007,0700,0210,0004,0012 

U 1115, 3573,4551,0404,4370,4007,0700,0010,0077,0000 

U 1117, 1 400 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 030 1 

U 3573 , 0002 , 3333 , 0003 ,7174, 4004 , 1 700 , 0400 , 0000 , 0300 



U 1764, 3574,4451,1205,4324,4007,0700,0000,0000,0000 

U 3574, 3575,4451 , 1204,4324,4007,0700,0000,0000,0000 

U 3575, 3576,4451,1206,4324,4007,0700,0000,0000,0000 

U 3576 , 2364 ,6113, 0405 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2364, 2365,3441,0604,4174,4007,0700,0000,0000,0000 

U 2365, 3577,3771 ,0005,7274,4007,0701 ,0000,0000,0300 

U 3577, 1 120,0551 , 0404 , 7274 , 4007 , 067 1 , 0000 , 0000 , 0301 



U 1 120, 3562,3771 , 0003 , 7274 , 4 1 1 7 , 0700 , 0010 , 0000 , 030 1 

U 1121, 3600,3333,0002,4174,4007,0700,0200,0003,0012 
U 1122, 1 764 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3600, 3601,3333,0005,4175,5007,0701,0200,0000,0002 
U 3601, 3602,0111,0702,4170,4007,0700,0200,0003,0012 
U 3602 , 1 400 , 3333 , 0004 ,4175, 5007 ,070 1 , 0200 , 0000 , 0002 
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7070 


. TOC 


"10 INTERNAL DEVICES 


-- WRTIME & RDTIME" 


707 1 








7072 


1774 : 






7073 


WRTIME : 


START READ 


; FETCH WORD AT E 


7074 




MEM READ, 


WAIT FOR DATA 


7075 




[AR] MEM 


PUT WORD IN AR 


7076 


=00 


VMA [HR3+1, 


,BUMP E 


7077 




START READ, 


, START MEMORY 


7078 




CALL [ LOADARX 3 


PUT DATA IN ARX 


7079 




[ARX 3 [ARX]. AND. #, 


CLEAR PART HELD IN 


7080 




#/770000, 


■ HARDWARE COUNTER 


7081 




HOLD LEFT, CALL [ WRTIM1 3 


7082 


= 1 1 


W0RK[TIME1 3 [ARX] , 


IN WORK SPACE 


7083 




J/DONE 


NEXT INSTRUCTION 


7084 








7085 


WRTIM1 : 


WORK[TIMEO] [AR], 


SAVE THE NEW VALUE 


7086 




RETURN [2] 




7087 








7088 


1764 : 






7089 


RDTIME : 


[BR] TIME 


READ THE TIME 


7090 




[ARX] TIME 


AGAIN 


7091 




[BRX] TIME 


AGAIN 


7092 




[BR] .XOR. [ARX] , 


SEE' IF STABLE 


7093 




SKIP AD.EQ.O 




7094 


=0 


[ARX] [BRX] 


NO THEN NEXT TRY MUST BE 


7095 




[BR] WORK[TIMEO] 




7096* 




[ARX] [ARX]+W0RK[TIME1 ] , 


;COMBINE PARTS 


7097 




SKIP/-1 MS 


SEE IF OVERFLOW HAPPENED 


709 S 


=00 


SPEC/CLRCLK, 


CLEAR CLOCK FLAG 


7099 




[AR] W0RK[TIME1], 2T , 


GET LOW WORD FOR TOCK 


7 100 




CALL [TOCK] 


UPDATE CLOCKS 


7 101 




READ [HR] , LOAD VMA, 


DID NOT OVERFLOW 


7102 




START WRITE, J/RDTIM1 


STORE ANSWER 


7103 




J/RDTIME 


TRY AGAIN 


7104 








7105 


RDTIM 1 : 


MEM WRITE, MEM [BR] 




7106 




VMA [HR]+1, LOAD VMA, START WRITE 


7107 




MEM WRITE, MEM [ARX], J/DONE 


7108 









KS10.MU ,14,311 ] 
INQUT.MIC[4,31 1 3 



MICRO 31(254) 
14:52 16-JULY-1981 



U 1775, 3603 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3603, 3604,3771,0003,4365,5007,0700,0200,0000,0002 

U 3604 , 3605 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0302 

U 3605 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0303 



U 1765, 3614,3771 ,0005,7274,4007,0701 ,0000,0000,0302 
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7109 .TOC "10 -- INTERNAL DEVICES WRINT & RDINT" 

71 10 

7111 

7112 1775: 

7113 WRINT: START READ 

7114 MEM READ, [AR]_MEM 

7115 WORK [ PERIOD ]_[AR] 

7116 WORK [ TTG ]_[ AR ] , 
,7117 J/DONE 

7118 

7119 1765: 

7120 RDINT: [ BR ]_WORK [ PERIOD ] , 

7121 J/RTNREG 
7122 



KS10.MC1[4,311] MICRO 31(254) 

INOUT.MIC[4,311] 14:52 16-JULY-1981 



1 1 


1 7 1 R 


1 1 


17 14 




/ooo , 


U 


OQ£;7 
ZuO / , 


u 


OQ7A 


1 1 
u 


007 i 
ZO / 1 , 


1 I 

u 


oDUo , 


] 1 

KJ 


OCA7 

v30v / , 


U 


2372, 


u 


2373, 


u 


2374 , 


u 


2375! 


u 


2376, 


u 


2377, 


u 


2400, 


u 


2401 , 


u 


2402, 


u 


2403, 


u 


0304, 


u 


0305, 


u 


0315, 



3614,3441,1 405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



2366, 
2367, 
2370, 
2740, 
3606, 
3607, 
2372, 
2373, 
2374, 
2375, 
2376, 
2377, 
2400, 
2401 , 
2402, 
2403, 
0304, 
0305, 
361 1 , 



4553, 
4221 , 
4553, 
4551 , 
4551 , 
3770, 
4553, 
5111, 
4553, 
3111, 
4553, 
3551 , 
4553, 
5551 , 
4553, 
3111, 
4553, 
5111, 
3770, 



0300, 
0014, 
0300, 
0202, 
0305, 
0505, 
0300, 
0514, 
0300, 
0514, 
0300, 
1414, 
0300, 
1414, 
0300, 
0514, 
0300, 
0514, 
1416, 



4374, 
4174, 
4374, 
4374, 
4374, 
4344, 
4374, 
4174, 
4374, 
4174, 
4374, 
4370, 
4374, 
4370, 
4374, 
4170, 
4374, 
4170, 
4344 , 



4007. 
4007, 
4007. 
0007, 
4007, 
0007, 
4007 . 
0007 
4007. 
0007, 
4007. 
4007, 
4007. 
4007. 
4007, 
4007. 
4007 , 
4007, 
4007, 



0331 
0700 
0331 
0700 
0700 
0700 
0331 
0700 
0331 
0700 
0331 
0700 
0331 
0700 
0331 
0700 
0331 
0700 
0700 



,0000. 

, 0000 , 
0000, 
0000 , 

, 0000 , 
0000, 
0000, 

,0000, 

, 0000 , 
0000, 
0000 , 

, 0000 , 
0000, 
0000, 
0000, 

, 0000 . 

, 0000 , 
0000, 

,0010, 



0001 , 
0000, 
0074, 
0077, 
0000, 
0000, 
0002, 
0000 , 

0000, 

0000, 

0000 , 

0000, 
0000, 
0000, 
0000, 

0000, 

0000, 
0000, 
0000, 



0000 
0000 
0000 
7740 
0177 
0000 
0000 
0000 
4000 
0000 
0200 
0200 
0400 
0200 
2000 
0000 
1000 
0000 
0000 



01 10,3443,0100,4174,4156,4700,0200,0014,0012 



U 3610, 361 1 ,3770, 1416,4344,4007,0700,0000,0000,0000 

U 361 1 , 3612,2441 ,0716,4170,4007,0700,4000,0000,0000 

U 3612, 3613,4111,1416,4174,4007,0700,0000,0000,0000 

U 3613, 0010,7443,1600,4174,4434,1700,0000,0000,0000 
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10 INTERNAL DEVICES RDPI & WRPI 

7123 .TOC "10 -- INTERNAL DEVICES RDPI & WRPI " 

7124 

7125 1715: 

7126 RDPI: [BR]_[PI], d/RTNREG 
7127 

7128 1714: 

7129 WRPI: TR [AR], PI.CLR/1 

7130 =0 [pn_p 

7131 TR [AR], PI.MBZ/17 

7132 =0 UUO 

7133 [BR]_[AR] .AND.#,#/177 

7134 C BR 3_[BR ] SWAP, HOLD RIGHT 

7135 TR [AR], PI.DIR/1 

7136 =0 [PI ]_[PI 3 . AND. NOT. [BR] , HOLD RIGHT 

7137 TR [AR], PI.REO/1 

7138 =0 [PI]_[PI].OR.[BR], HOLD RIGHT 

7139 TR [AR], PI.TSN/1 

7140 =0 [PI ]__[PI 3 - OR. # , PI . ON/ 1 , HOLD LEFT 

7141 TR [AR], PI.TSF/1 

7142 =0 [PI]_[PI].AND.N0T.#,PI.0N/1, HOLD LEFT 

7143 TR [AR], PI.TCN/1 

7144 =0 [PI 3_[PI 3 -OR. [BR3 , HOLD LEFT 

7145 TR [ AR 3 , PI .TCF/1 

7146 =0**0 [PI ]__[ PI 3 .. AND. NOT. [BR] , HOLD LEFT 

7147 PIEXIT: CALL LOAD PI 

7148 =1**1 

7149 DONE 

7150 = 
7151 

7152 ; SUBROUTINE TO LOAD PI HARDWARE 

7153 ; CALL WITH: . ■ ■ 

7154 ; CALL LOAD PI 

7155 ; RETURNS 10 WITH PI HARDWARE LOADED 

7156 ; 

7157 LOADPI: [TO]_[PI] SWAP ; PUT ACTIVE CHANS IN LH 

7158 LDPI2: [T0]_-1, HOLD LEFT ; DONT MASK RH 

7159 [TO]_[TO] .AND. [PI3 ; ONLY REQUEST CHANS THAT ARE ON 

7160 .NOT. [TO], LOAD PI, ; RELOAD HARDWARE 

7161 RETURN [10] ; RETURN TO CALLER 
7162 



KS10.MC1 [4,31 1 ] 
IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-JULY-1981 



U 3614, 3615, 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 
U 36 1 5 , 1 400 , 3333 ," 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



o 



V) 
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7163 .TOC "10 INTERNAL DEVICES SUBROUTINES 

7164 

7165 

7166 ; HERE WITH SOMETHING IN BR STORE IT @AR 

7167 RTNREG: VMA_[AR], START WRITE 

7168 MEM WRITE, MEM_[ BR ] , J/DONE 
7169 



/ 



KS10.MC1 [4,31 1 3 
IN0UT.MIC[4,31 1 3 



MICRO 31(254) 
14:52 16-JULY-1981 



U 1722, 3616,3443, 0300 ,4174,4147, 0700 , 0200 , 0000 , 00 1 O 

U 3616, 2404 ,4221, 0003 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 

U 2404, 3622,3771,0003,4374,4007,0700,0010,0037,7377 

U 2405, 3617,3771 ,0005,4374,4247,0700,0000,0000, 1001 

U 3617, 2406,3333,0003,4174,4247,0700,0000,0000,1000 



U 2406, 2406, 1111 ,0503,4174,4247,0630,6000,0060, 1000 
U 2407 , 2413,3333, 0003 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2410, 3622,3771,0003,4374,4007,0700,0010,0037,7377 

U 2411, 3620,3771,0005,4374,4347,0700,0000,0000,1001 
U 3620 , 2412,3333, 0003 ,4174, 4347 , 0700 , 0000 , 0000 , 1000 



U 2412, 2412,1111,0503,4174,4347,0630,6000,0060,1000 
U 2413, 3621,4223,0000,7174,4007,0700,0400,0000,0424 
U 362 1 , 1 400 , 4223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0423 



U 3622, 0001,4443,0000,4174,4004,1700,2000,0071,0375 
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7170 


;CACHE 


SWEEP 




7171 








7172 


1722: 






7173 


CLRPT: 


VMA [AR], 


;PUT CORRECT ADDRESS IN VMA 


7174 




LOAD PAGE TABLE 


; GET SET TO WRITE PAGE TABLE 


7175 




[ AR 3 


; CLEAR ENTRY 


7176 


=0 


[ AR 3 #,#/377377, 


; INITIAL VMA VALUE 


7177 




CALL [ SSWEEP 3 


; LOAD THE SC 


7178 




[BR 3 #, #/l001, 


; CONSTANT TO KEEP ADDING 


7179 




CLRCSH 


; START TO CLEAR CACHE 


7180 




READ [AR], CLRCSH 


;FIRST THING TO CLEAR 


7181 


=0 






7182 


CLRPTL 


[AR] [ AR 3 ~ [ BR 3 , 


; UPDATE AR (AND PUT ON DP) 


7183 




CLRCSH, 


; SWEEP ON NEXT STEP 


7184 




STEP SC, 


;SKIP IF WE ARE DONE 


7185 




J/CLRPTL 


;LOOP FOR ALL ENTRIES 


7186 




READ [AR], J/ZAPPTA 


; C L E A R LAST ENTRY 


7187 








7188 


=0 






7189 


SWEEP: 


[AR] #,#/377377, 


; INITIAL VMA VALUE 


7190 




CALL [ SSWEEP 3 


; LOAD NUMBER OF STEPS INTO SC 


7191 




[ BR 3 #, 0/1001, 


; CONSTANT TO KEEP ADDING 


7192 




SWEEP 


; START SWEEP 


7193 




READ [AR], SWEEP 


; FIRST THING TO CLEAR 


7194 


=0 






7195 


SWEEPL 


[AR] [ AR 3 ~ [BR 3 , • 


; UPDATE AR (AND PUT ON DP) 


7196 




SWEEP, 


; SWEEP ON NEXT STEP 


7197 




STEP SC, 


;SKIP IF WE ARE DONE 


7198 




J/SWEEPL 


;LOOP FOR ALL ENTRIES 


7199 






; CLEAR LAST ENTRY AND 


7200 


ZAPPTA 


W0RK[PTA.U3 


; FORGET PAGE TABLE ADDRESS 


7201 




WORK[PT.A.E] 0, 


; FORGET PAGE TABLE ADDRESS 


7202 




J/DONE 


; ALL DONE 


7203 








7204 


SSWEEP 


SC S#, S#/375, 


; NUMBER OF STEPS 


7205 




RETURN [ 1 3 


; RETURN 


7206 









KSIO.Mu .14,311 ] 
IN0UT.MIC[4,311] 



MICRO 31(254) 
14:52 16-JULY-1981 



U 0770, 
U 0771 , 
U 0772, 
U 0773, 
U 0774. 
U 0775, 
U 0776, 
U 0777, 
U 3623, 
U 3624, 
U 3625, 
U 3626, 
U 3627, 
U 3630, 
U 3631, 



0770, 
3623, 
3624, 
3625, 
3626, 
3627, 
3630, 
3631 , 
3632, 
3632, 
3632, 
3632, 
3632, 
3632, 
3632, 



3773. 
3551 , 
3551 . 
3551 . 
355 1 , 
3551 , 
3551 , 
3551 , 
4751 , 
4751 , 
4751 , 
4751 , 
4751 . 
4751 , 
4751 , 



0000, 
1414, 
1414, 
1414, 
1414, 
1414, 
1414, 
1414, 
1206, 
1206, 
1206, 
1206, 
1206, 
1206, 
1206, 



4074, 
4370, 
4370, 
4370, 
4370, 
4370, 
4370, 
4370, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374, 
4374, 



4003. 

4007 . 

4007, 

4007, 

4007, 

4007, 

4007, 

4007 

4007, 

4007, 

4007, 

4007 

4007 

4007 

4007, 



1701 , 
0700, 
0700, 
0700, 
0700, 
0700. 
0700. 
0700, 
0700, 
0700, 
0700, 
0700, 
0700. 
0700. 
0700, 



0000, 
0000, 
0000, 

oooo, 

0000. 

oooo, 

0000, 

oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo , 
oooo, 



oooo, 

0004 , 
0002, 
0001 , 

oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo, 
oooo , 
oooo, 



oooo 
oooo 
oooo 
oooo 

4000 
2000 
1000 
0400 
0001 
0002 
0003 
0004 
0005 
0006 
0007 



U 3632, 3633,4251 , 1403,4374,4007,0700,0000,0007,7577 
U 3633, 3634,7443,O3OO,4174,4437,O7O0,OOOO,OOO0,O0O0 
U 3634, 2414,4223,0000,4364,4277,0700,0200,0000,0010 



U 2414, 3667,4571,1203,4374,4007,0700,0010,0024,1300 



U 2415, 2416,3771 ,0003,4364,4007,0331 ,0200,0000,0002 
U 2416, 3643,4221,0004,4174,4007,0700,0000,0000,0000 
U 2417, 3635,3445,0603,4174,4007,0700,0000,0000,0000 



U 3635, 3636,0551,0303,4370,4007,0701,0000,0000,0040 



U 3636, 3637,0111,1003,4174,4007,0700,0000,0000,0000 
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7207 
7208 
7209 
7210 
721 1 
7212 
7213 
7214 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
7232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 



WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL 
LOGIC. IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP 
TO RESTART PROPERLY. 

FIRST SET THE CORRECT PI IN PROGRESS BIT 

[FLG]_[FLG] .OR.#,FLG.PI/ 1 , HOLD RIGHT, 

J/PI ;SET PI CYCLE AND PROCESS PI 



= 1000 
PI : 



= 1001 
= 1010 
= 101 1 
= 1 100 
= 1 101 
= 1 1 10 
= 1111 
PIP1 
PIP2 
PIP3 
PIP4 
PIP5 
PIP6 
PIP7 

PI 10: 



AD/D, DBUS/P 
DISP/DP LEFT 
J/PI 

[PI ]_[ PI ] .OR 
[PI]_[PI].OR 
[PI ]_[ PI ] .OR 
[PI ]_[ PI ] .OR 
[PI ]_[PI ] .OR 
[PI ]_[ PI 3 .or 
[pi ]_[ pi 3 .or 

[BRX3_0 XWD 
[BRX3_0 
[BRX3_0 
[BRX]_0 
[BRX3_0 
[BRX3_0 
[BRX3_0 



I NEW , 
, 3T, 



XWD 
XWD 
XWD 
XWD 
XWD 
XWD 



[13 
[23 
[33 
[43 
[53 
[63 

[73 



#/040000 
#/020000 
ff/O 10000 
#/004000 
#7002000 
#/001000 
#/000400 
J/PI 10 
J/PI 10 
J/PI 10 
J/PI 10 
J/PI 10 
J/PI 10 
J/P1 10 



LOOK AT NEW LEV 
DISPATCH ON IT 
GO TO 1 OF NEXT 
, HOLD LEFT, J/P 
, HOLD LEFT, J/P 
HOLD LEFT, J/P 
, HOLD LEFT, J/P 
, HOLD LEFT, J/P 
, HOLD LEFT, J/P 
, HOLD LEFT, J/P 
; REMEMBER WE ARE 
; REMEMBER WE ARE 
REMEMBER WE ARE 
REMEMBER WE ARE 
; REMEMBER WE ARE 
; REMEMBER WE ARE 
; REMEMBER WE ARE 



EL 

7 PLACES 

IP1 

IP2 

IP3 

IP4 

IP5 

IP6 

IP7 
AT LEVEL 1 
AT LEVEL 
AT LEVEL 
AT LEVEL 
AT LEVEL 
AT LEVEL 
AT LEVEL 



[AR3_[PI] -AND.# CLR LH, 

#/077577 

.NOT. [AR] , LOAD PI 

ABORT MEM CYCLE 

[AR3_VMA 10 READ, 

WRU CYCLE/1 , 

CALL [STRTIO] 

MEM READ, 

[AR3_I0 DATA, 3T, 

SKIP ADR.EO.O 

[ARX3_0, J/VECINT 

[AR3_[BRX3*2 

[AR3_[AR3+#, #/40, 3T, 

HOLD LEFT 

[ AR 3_[ AR 3 + [ EBR ] , 

J/PI40 



TURN OFF PI SYSTEM 
TILL WE ARE DONE 

NO MORE TRAPS 

SETUP TO READ WRU BITS • 

START THE CYCLE 

WAIT FOR DATA 

PUT DATA IN AR 

SEE IF ANYONE THERE 

YES- -VECTORED INTERRUPT 

N*2 

2*N+40 

ABSOULTE ADDRESS OF 
INTERRUPT INSTRUCTION 



KS10.MC1[4,311] 

IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-JULY-1981 



U 3637, 3640,3443,0300,4174,4007,0700,0200,0024, 1016 

U 3640, 3641 ,3771 ,0003,4365,5007,0701 ,0200,0020,-0012 

U 3641, 2420,6553,0300,4374,4007,0321,0000,0025,4340 

U 2420 , 2422 , 6553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0026 , 4000 

U 2421 , 3642,4521 , 1205,4074,4007,0700,0000,0000,0000 

U 3642, 0060,4223,0000,4174,4467,0700,0000,0000,0004 



U 2422, 0104,4751 , 1217,4374,4007,0700,0000,0000,0101 

U 2423, 0470,4443,0000,4174,4007,0700,0200,0023,0002 

U 0470, 3670,3741,0105,4074,4007,0700,0010,0000,0000 

GS 

U 0474 , 3665 ,3771, 0003 , 4374 , 0007 , 0700 , 00 10 , 0000 , 0000 

U 0475, 2715,3441 ,0301 ,4174,4467,0700,0000,0000,0004 
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7250 ; HERE WITH ABSOLUTE ADDRESS OF INTERRUPT INSTRUCTION IN [AR] 

7251 PI40: VMA_[AR], VMA PHYSICAL READ ; FETCH THE INSTRUCTION 

7252 PI50: MEM READ, [ AR ]_MEM , LOAD VMA, ; FETCH INSTRUCTION 

7253 3T, FORCE EXEC ; E IS EXEC MODE 

7254 [AR].XOR.#, #/254340, 3T , SKIP ADL.EQ.O 

7255 =0 [ AR ] . XOR . # , #/264000, SKIP ADL.EQ.O, 3T , J/PIJSR 

7256 [BR 3_FLAGS ; SAVE FLAGS 

7257 AD/ZERO, LOAD FLAGS, 

7258 d/PIXPCW ; ENTER EXEC MODE AND ASSUME 

7259 ; WE HAVE AN XPCW 

7260 ;IF WE HALT HERE ON A VECTORED INTERRUPT, WE HAVE 

7261 ; TO/ WHAT WE READ FROM BUS AS VECTOR 

7262 ; ARX/ EPT+ 100+DEVICE 

7263 ; BR/ ADDRESS OF ILLEGAL INSTRUCTION 

7264 ; BRX/ VECTOR (MASKED AND SHIFTED) 

7265 =0 

7266 PIJSR: HALT [ILLII] ; NOT A JSR OR XPCW 

7267 START WRITE, FORCE EXEC ; PREPARE TO STORE OLD PC 

7268 =0*0 [BR]_PC WITH FLAGS, ;OLD PC 

7269 CALL [ STOBR 3 ;STORE OLD PC 

7270 =1*0 [AR3_#, #/0, HOLD RIGHT, ; PREPARE TO CLEAR FL 

7271 CALL* [INCAR3 ; BUMP POINTER 

7272 =1*1 [PC3_[AR3', LOAD FLAGS, ;NEW PC 

7273 J/PISET ; CLEAR PI CYCLE & START 

7274 ; INTERRUPT PROGRAM 



7275 = 
7276 



; KS10.MC1[4,311] MICRO 31(254) 

; IN0UT.MIC[4,31 1 ] 14:52 16-JULY-1981 



U 3643 , 2424 , 3445 , 0303 ,4174, 4007 , 0530 , 0000 , 0000 , 0000 

U 2424, 3643,0111,1504,4174,4007,0700,0000,0000,0000 

U 2425, 2426,4571,1203,4374,4007,0700,0000,0024,1240 

U 2426, 3667,3111,0403,4174,4007,0700,0010,0000,0000 

U 2427, 2430,3771,0016,4364,4007,0700,0200,0000,0002 

U 2430, 3664,0551 , 1005,4374,4007,0701 ,0010,0000,0100 

U 2431 , 3644, 01 1 1 ,0504,4174,4007,0700,0200,0024, 1016 

U 3644, 2432,3771 ,0005,4365,5007,0331 ,0200,0000,0002 

U 2432, 3645,4557, 1606,4374,4007,0701 ,0000,0000,0774 

U 2433, 0104,4751,1217,4374,4007,0700,0000,0000,0102 

U 3645 , 3646 , 3447 , 0606 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 



U 3646, 



3640,01 1 1 ,0605,4174,4007,0700,0200,0024,0012 
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7277 ; HERE TO PROCESS A VECTORED 

7278 ; AR/ WRU BITS (BIT 18 

7279 ; ARX/ 

7280 VECINT: [AR]jAR]*2, 

7281 SKIP~DP18 

7282 =0 [ARX]_[ARX]+[XWD1 ] , 

7283 J/VECINT 

7284 [AR]_VMA 10 READ, 

7285 VECTOR CYCLE/1 

7286 =0' [AR]_[AR] .OR. [ARX] , 

7287 CALL [STRTIO] 

7288 MEM READ, 

7289 [TO]_IO DATA 

7290 =0 [BR]_[EBR]+#, 3T , #/lOO 

7291 CALL [CLARXL] 

7292 [ARX]_[ARX]+[BR] , 

7293 VMA PHYSICAL READ 

7294 MEM READ, [ BR ]_MEM 

7295 SKIP ADR.EO.O 

7296 =0 [BRX]_([TO].AND.#)*. 

7297 #/774, J/VECIN1 

7298 HALT [ILLINT] 

7299 VECIN1: [ BRX ]_[ BRX ] * . 5 

7300 [BR]_[BR]+[BRX] , 

7301 LOAD VMA, FORCE EXEC 

7302 START READ, J/PI50 
7303 



INTERRUPT. AT THIS POINT: 
FOR DEVICE O) 



SHIFT LEFT (UNSHIFTED ON DP) 
ANYONE THERE? 
NO- -BUMP BOTH HALVES 
KEEP LOOKING 
SETUP FOR VECTOR CYCLE 

PUT IN UNIT NUMBER 
START CYCLE 

WAIT FOR VECTOR (SEE DPM5) 
GET VECTOR 

;EPT+100 
CLEAR ARX LEFT 
EPT+ 100+DE VICE 
FETCH WORD 
GET POINTER 
SEE IF NON-ZERO 
3T, ; OK- -MAKE VECTOR MOD 400 
; AND SHIFT OVER 



3T, 



SHIFT 1 MORE PLACE 
ADDRESS OF WORD TO USE 
FORCE EXEC VIRTUAL ADDRESS 
GO GET INSTRUCTION 



KS10.MC1 [4,31 1 3 
IN0UT.MIC[4,31 1 3 



MICRO 31(254) 
14:52 T6-UULY-1981 



U 2434, 3647,3771,0005,4374,4007,0700,0000,0004,0000 

U 2435, 0004,4443,0000,4174,4004,1700,0000,0000,0000 

U 3647, 2436,4113,0514,4174,4007,0330,0000,0000,0000 

U 2436, 0004,5111,0514,4170,4004,1700,0000,0000,0000 

U 2437, 3647,3447,0505,4174,4007,0700,0000,0000,0000 
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PRIORITY INTERRUPTS DISMISS SUBROUTINE 

7304 .TOC "PRIORITY INTERRUPTS DISMISS SUBROUTINE" 

7305 

7306 ; SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS 

7307 ; RETURNS 4 ALWAYS 
7308 

7309 ;DISMISS: 

7310 ; TR [PI 3, #/077400 ; ANY PI IN PROGRESS? 

7311 =0 

7312 JEN 1 .: [BR3__#, PI.IP1/1, U/DSMS1 ; YES- -START LOOP 

7313 RETURN [43 ;NO--JUST RETURN 
7314 

7315 DSMS1: [ PI 3 . AND . [BR 3 , SKIP ADR. EO.O 

7316 =0 [PI ]_[PI 3 - AND . NOT . [BR 3 , HOLD LEFT, RETURN [43 

7317 [BR]_[BR]*.5, J/DSMS1 
7318 





.Mc -it 4 



KSIO.Mv. .[4,311 ] 
IN0UT.MIC[4,31 1 ] 



14:52 



MICRO 31(254) 
16-JULY-1981 



D 0710, 1210, 1614,0100 

D 071 1 , 1214, 1614,0100 

D 0720, 1200, 1614,0100 

D 0721, 1204,1614,0100 



U 1614, 
U 1617, 



2440 , 4443 , 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
00 1 4 , 455 1 , 0305 , 0274 , 4003 , 7700 , 0000 , 0000 ,0000 



D 0712, 1210,1460,0100 

D 0713, 1210, 1461 ,0100 

D 0722, 1200,1460,0100 

D 0723, 1200, 1461 ,0100 



U 1460, 
U 1463, 



2440 , 4443 , 0000 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 
1 400 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 



U 1461, 2450,3771,0005,0276,6007,0700,0000,0000,0000 



D 0714, 1210,1644,0100 

D 0715, 1214, 1644,0100 

D 0724, 1200,1644,0100 

D 0725, 1204,1644,0100 



U 1644, 2440 , 344 1 , 0306 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 

U 1 647 , 1013, 344 1 , 0305 ,4174, 4003 , 7700 , 0000 , 0000 , 0000 

U 1013, 3650,3551,0505,0274,4007,0700,0000,0000,0000 

U 1017, 3650, 5551, 0505 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 



U 3650, 



2450 , 344 1 , 0603 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
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7319 .TOC "EXTERNAL 10 INSTRUCTIONS" 
7320 

7321 . DCODE 

7322 710: IOT, WORD -TNE , J/TIOX 

7323 711: IOT, WORD-TNN , J/TIOX 

7324 720: IOT, TNE, J/TIOX 

7325 721: IOT, TNN, J/TIOX 

7326 .UCODE 
7327 

7328 1614: 

7329 TIOX: CALL [IORD] 

7330 1617: [ BR ]_[ AR ] . AND . AC , TEST DISP 
7331 

7332 .DCODE 

7333 712: IOT, B/10, J/RDIO 

7334 713: IOT, B/10, J/WRIO 

7335 722: IOT, B/0, J/RDIO 

7336 723: IOT, B/0, J/WRIO 

7337 .UCODE 
7338 

7339 1460: 

7340 RDIO: CALL [IORD] 

7341 1463: AC_[AR], J/DONE 
7342 

7343 1461: 

7344 WRIO: [BR]_AC, J/IOWR 
7345 

7346 .DCODE 

7347 714: IOT, B/10, J/BIXUB 

7348 715: IOT,, B/14, J/BIXUB 

7349 724: IOT, , B/0, J/BIXUB 

7350 725: IOT, B/4 , J/BIXUB 

7351 .UCODE 
7352 

7353 1644: 

7354 BIXUB: [BRX]_[AR], ; SAVE EFFECTIVE ADDRESS 

7355 CALL [IORD] ; GO GET THE DATA 

7356 1647: [ BR ]_[ AR ] , ;COPY DATA ITEM 

7357 B DISP ;SEE IF SET OR CLEAR 

7358 =1011 [BR]_[BR] .OR. AC, ;SETBITS 

7359 J/BIXUB 1 ; GO DO WRITE 

7360 [BR]_[BR] . AND . NOT . AC , ; CLEAR BITS 

7361 J/BIXUB 1 ;G0 DO WRITE 
7362 

7363 BIXUB 1 : [AR]_[BRX], ;RESTORE ADDRESS 

7364 J/IOWR 
7365 



KS10.MC1[4,3t1] 
IN0UT.MIC[4,31 1 ] 



MICRO 
14:52 16-JULY- 



31 (254) 
1981 



U 2440, 
U 2441 , 



2460 , 4443 , 0000 ,4174,4137 ,0700 , 00 10 , 0000 , 0000 
0067 , 4443 , 0000 , 4 1 74 , 4003 ,7700 , 0000 , 0000 , 0000 



U 0067, 
U 0077, 



2442,4571 , 1205,4374,4007,0700,0000,0024. 1220 
2442,4571 , 1205,4374,4007,0700,0000,0024, 1200 



U 2442, 3657,3113,0305,4174,4007,070-1,0210,0000,0036 



U 2443 , 1027 ,3771, 0005 , 4364 , 4003 , 7700 , 0200 , 0000 , 0002 
U 1 027 , 2444 , 4553 , 0300 ,4374 ,4007 ,033 1 , 0000 , 0000 , 000 1 
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000 



U 2444 , 2446 , 3447 , 0505 ,4174, 4007 , 0700 ,2000 , 007 1 , 0005 

U 2445, 0003,4551,0503,4374,4004,1700,0000,0000,0377 

U 2446, 2446,3447,0505,4174,4007,0630,2000,0060,0000 

U 2447, 0003,4551,0503,4374,4004,1700,0000,0000,0377 
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7366- ; SUBROUTINE TO READ FROM AN 10 DEVICE 

7367 ; CALL WITH: 

7368 ; SECTION O EFFECTIVE ADDRESS IN AR 

7369 ; INSTRUCTION IN HR 

7370 ; RETURN 3 WITH WORD OR BYTE IN AR 

7371 ; 

7372 =0 

7373 IORD: CLR 10 BUSY, ; CLEAR BUSY 

7374 CALL [IOEA] ;COMPUTE 10 EA 

7375 B DISP 

7376 =10111 [ BR ]__VMA 10 READ, ; BYTE MODE 

7377 10 BYTE/1, ; SET BYTE FLAG 

7378 J/I0RD1 ;G0 DO C/A CYCLE 

7379 =11111 [BR]_VMA 10 READ ;WORD MODE 

7380 = 

7381 =0 

7382 I0RD1: VMA_[ AR ] . OR . [ BR ] WITH FLAGS, 

7383 CALL [IOWAIT] ;WAIT FOR THINGS COMPLETE 

7384 MEM READ, ; MAKE SURE REALLY READY 

7385 [BR]__IO DATA, ; PUT DATA IN BR 

7386 B DISP ;SEE IF BYTE MODE 

7387 =0111 TR [AR], #/l, U/I0RD2 ; BYTE MODE SEE IF ODD 

7388 [AR]_[BR3, RETURN [3] ; ALL DONE 
7389 

7390 ; HERE ON WORD MODE 

7391 =0 

7392 I0RD2: [BR ]_[BR ] * . 5 , SC_5 , ; LEFT BYTE 

7393 J/I0RD3 ; GO SHIFT IT 

7394 [ AR ]_[BR ] . AND . # , ; MASK IT 

7395 #/377, RETURN [3] ; ALL DONE 
7396 

7397 =0 \ 

7398 I0RD3: [BR ]_[BR ] * . 5 , ;SHIFT OVER 

7399 STEP SC, J/I0RD3 ; 

7400 [ A RN] [ BR ] . AND . # , ; MASK IT 

7401 #/377, RETURN [3] ; ALL DONE 
7402 



o 

; KS10.MCi[4,311 ] MICRO 31(254) 

; IN0UT.MIC[4,31 1 ] 14:52 16-JULY-1981 



U 2450 , 2460 , 4443 , 0000 ,4174,4137, 0700 , 00 1 , 0000 , 0000 

U 2451, 0227,4443,0000,4174,4003,7700,0000,0000,0000 

U 0227, 2454,4553,0300,4374,4007,0331,0000,0000,0001 

U 0237, 3651 ,4571 , 1 204 , 4374 , 4007 , 0700 , 0000 , 002 1 , 1200 

U 3651, 2452,3113,0304,4174,4007,0701,0200,0000,0036 

U 2452, 3657,3333,0005,4175,5007,0701,0210,0000,0002 

U 2453, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 2454 , 2456 , 3445 , 0505 ,4174, 4007 , 0700 , 2000 , 007 1 , 0005 
U 2455, 3651,4571,1204,4374,4007,0700,0000,0021,1220 



U 2456, 
U 2457, 



2456 , 3445 , 0505 , 4 1 74 , 4007 , 0630 , 2000 , 0060 , 0000 
3651 ,4571 , 1204,4374,4007,0700,0000,0021 , 1220 
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7403 ;ROUTINE TO WRITE TO AN 10 DEVICE 

7404 ; CALL WITH: 

7405 ; SECTION EFFECTIVE ADDRESS IN AR 

7406 ; INSTRUCTION IN HR 

7407 ; WORD OR BYTE IN BR 

7408 ; RETURNS BACK TO USER 

7409 ; 

7410 =0 

7411 IOWR: CLR 10 BUSY, ; CLEAR BUSY 

7412 CALL [IOEA] ;COMPUTE 10 EA 

7413 B DISP 

7414 =10111 TR [AR], #/ 1 , J/I0WR2 ; BYTE MODE 

7415 =11111 [ARX]_VMA 10 WRITE ; SETUP FLAGS 

7416 = 

7417 I0WR1: VMA_[AR] .OR. [ARX] WITH FLAGS 

7418 =0 MEM WRITE, MEM_[BR], ; SEND DATA 

7419 CALL [IOWAIT] ;WAIT FOR DATA 

7420 DONE ; RETURN 
7421 

7422 ; HERE FOR BYTE MODE 

7423 =0 

7424 I0WR2: [BR]_[BR]*2, SC_5 , ;ODD--MOVE LEFT 

7425 U/I0WR3 ; . . 

7426 [ARX]_VMA 10 WRITE, ;SETUP FLAGS 

7427 10 BYTE/1, J/I0WR1 ; .. 
7428 

7429 =0 

7430 I0WR3: [BR]_[BR]*2, STEP SC , ;SHIFT LEFT 

7431 J/I0WR3 ; KEEP SHIFTING 

7432 [ARX]_VMA 10 WRITE, ; SETUP FLAGS 

7433 10 BYTE/1, J/I0WR1 ; .. 
7434 



KS10.MC1[4,311] 

IN0UT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-UULY-1981 



U 2460, 3661,1113,0701,4170,4007,0700,4210,0004,0012 

U 2461, 3652,7441,0306,4174,4007,0700,0000,0000,0000 

U 3652 , 2462 , 4553 , 0600 , 4374 , 4007 , 032 1 , 0000 , 0070 , 0000 

U 2462, 2464,4553,0200,4374,4007,0321,0000,0000,0020 

U 2463 , 2462 ,4713,1 203 ,7174, 4007 , 0700 , 0400 , 0000 ,0422 

U 2464, 3653,3771 ,0003,7274,4007,0701 ,0000 ,'0000,0422 

U 2465 , 1 055 , 4443 , 0000 ,2174, 4006 , 6700 , OOOO , 0000 , 0000 

U 1 055 , 2470,3771, 0004 , 2274 , 4007 , O 1 20 , 0000 ,0000 , 0000 

U 1057, 0001 ,3771 ,0003,7274,4124, 1701 ,0000,0000,0422 



U 3653 , 3654 , 3333 , 0002 ,4174,4217, 0700 , 0000 , 0000 , 0000 

U 3654 , 2466 , 4553 , 0200 , 4374 , 4007 , 032 1 , 0000 , 0000 f 00 1 7 

U 2466, 2467,0551,0303,2270,4007,0701,0000,0000,0000 

U 2467, 3655,3443,0300,4174,4007,0700,0200,0004,0012 

U 3655, 0001,3771,0003,4365,5124,1700,0200,0000,0002 



U 2470, 0001,0551,0403,7274,4124,1701,0000,0000,0422 
U 2471 , 3656,0551 ,0403,7274,4007,0701 ,0000,0000,0422 

U 3656, 0001,4221,0003,4174,0124,1700,0000,0000,0000 
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7435 ; HERE TO COMPUTE 10 EFFECTIVE ADDRESS 

7436 ; CALL WITH : 

7437 ; SECTION EFFECTIVE ADDRESS IN AR 

7438 ; INSTRUCTION IN HR 

7439 ; RETURN 1 WITH EA IN AR 

7440 ; 

7441 =0 

7442 IOEA: VMA__[PCj-1, ; GET INSTRUCTION 

7443 START READ, ; . . 

7444 CALL [LOADAR] ; PUT WORD IN AR 

7445 [BRX]_.NOT. [AR] ;SEE IF IN RANGE 700-777 

7446 TL [ BRX ] , #/700000 ; 

7447 =0 

7448 I0EA1: TL [HR], 0/20, J/I0EA2 ; INDIRECT? 

7449 WORK[YSAVE]_[AR] CLR LH, ".DIRECT 10 INSTRUCTION 

7450 U/I0EA1 ;SAVE Y FOR EA CALCULATION 
745.1 =0 

7452 I0EA2: [ AR ]_WORK [ YSAVE ] , ;@--GET SAVED Y 

7453 J/IOEAI ; GET Y AND GO 

7454 EA MODE DISP ;WAS THERE INDEXING? 

7455 =1101 [ARX]_XR, SKIP ADL.LE.O, ;SEE IF LCJCAL OR GLOBAL INDEXING 

7456 2T, U/IOEAX ; . . 

7457 [AR]_WORK[YSAVE] , ; JUST PLAIN 10 

7458 CLR 10 LATCH, RETURN [1] 
7459 

7460 IOEAI: READ [HR] , DBUS/DP, ; LOAD XR FLOPS IN CASE 

7461 LOAD INST EA ; THERE IS INDEXING 

7462 TL [HR], #/17 ;WAS THERE ALSO INDEXING 

7463 =0 [AR]_[AR]+XR, 3T , HOLD LEFT ; YES- -ADD IN INDEX VALUE 

7464 VMA_[AR], START READ ; FETCH DATA WORD 

7465 MEM READ, [AR]_MEM, ; GO GET DATA WORD 

7466 ' CLR 10 LATCH, RETURN [1] 
7467 

7468 =0 

7469 IOEAX: [ AR ]_[ ARX ] +WORK [ YSAVE ] , ; GLOBAL INDEXING 

7470 CLR 10 LATCH, RETURN [1] 

7471 [AR]__[ARX]+WORK[YSAVE] ; LOCAL INDEXING 

7472 [AR]_0, HOLD RIGHT, 

7473 CLR 10 LATCH, RETURN [1] 
7474 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

IN0UT.MIC[4,31 1 ] 14:52 16-JULY-1981 



U 3657, 1 124,3771 , 0016 , 4354', 4007 , 0650, 2000, 007 1 , 0200 

U 1124, 3660,3333,0016,7174,4127,0700,0400,0000,0210 

U 1 125, 1 124,4443,0000,4174,4006,7653,2000,0060,0000 

U 1126, 3660,3333,0016,7174,4127,0700,0400,0000,0210 

U 1127, 2475,3333,0016,7174,4007,0700,0400,0000,0210 

U 3660, 2472,4443,0000,4174,4007,0650,2000,0071,0777 



U 2472 , 2474 , 4443 , 0000 ,4174,4127, 0630 , 2000 , 0060 , 0000 
U 2473, 0001,4443,0000,4174,4004,1700,0000,0000,0000 



U 2474, 2472,4443,0000,4174,4127,0653,0000,0000,0000 
U 2475 , 1 502 , 457 1 , 1 206 , 4374 , 4007 , 0700 , 0000 , 0020 , 0000 
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/ 4 / D 


; WAIT 


FOR 10 TO COMPLETE 




7476 


; RETURNS 1 OR PAGE FAILS 




7477 








7478 


I OWA I T 


• SC_5#, S#/200, 


; DELAY 


7479 




L 1 u J VMA , 


;GET VMA 


7480 




r 1/ t n / TO n | i c \/ 

SKI P / - IU BUSY 


. C 17 C T C DIICV vex 

;5EE IF BUSY YET 


748 1 


=00 






1 A O O 
/ HO Z 


I OW 1 : 


/-> l n Tfl 1 ATru 

LLK 1 U LA 1 Lrt , 


, WbNI BUb Y 


7,100 




wUkKLoV.VIV1AJ_[ iuj , 


. M A 1/ C CIIDC C\/ \/MA TC CCTIID 

,mAKt bUKt bv . VMA lb bt 1 UP 


"7 A O A 

1 4o4 




U/ 1 Uwz 


• WATT COD TT Tfl /"MCAD 

, WA1 1 r UK 1 1 IU OLtAK 


1 A Q d 
/ 4o O 




bL-__bL-|, bLAU UibP 


c;t - ccc tc nnMC vct 

Di , , out lr UUlNt Ytl 






OfNlP/ 1U BUbY, 




1 A O "7 

f 4o / 




J/ 1 OW 1 


• d Ariz Tfi i nnD 
, dALK, 1 U LUUr 






CLK IU LAICn, 


jWtlNl DUbT AINU lllV|tUUi 


7489 




V/UkK L b v . VMA J_L IUJ , 


. M A L/" C CI IDC C\/ \ /ft/1 A TC CCTIID 

; MAKt bUKt bV . VMA lb bt 1 UP 


7490 




u/ I UW2 




"7 A Q ^ 

/4y i 




WUKK Lbv.VIvlAJ LIUJ, 


. MAI/C CI IDC C\/ WMA TC CCTIID 

,MAr\t bUKt bV . VMA lb bt 1 UP 


7492 




u/ I0W5 


. /-» f-\ TOAD 

; vaU 1 KAP 


/ 4y o 








7494 


1 0W2 : 


bL b# , b#/ iff, 


. /-» r-> TTiir TO 

; GO TIME 10 


7495 




Cl/TD / TO DIICV 

SKI P/ - IU bUb Y 




/ 4y b 


-0 






7497 


1 0W3 : 


/-> | r> TO 1 ATPU 

L LK 1 U LAI LM , 


• TDV TO 1 CAD 1 ATPU 

, IKY IU L-LtAK LA 1 


"7 A Q Q 




STEP SC, J/I0W4 


. CTTI 1 RIICV 

, b 1 ILL BUb Y 


1 A QQ 
/ 433 




RETURN [1] 


• t n i c 


7500 








7501 


=0 






7502 


I0W4 : 


CLR 10 LATCH, 5T , 


; TRY TO CLEAR LATCH 


7503 




SKIP/-I0 BUSY, 


;SEE IF STILL BUSY 


7504 




J/I0W3 




7505 


I0W5: 


[BRX] [200000] XWD 


0, J/HARD 


7506 









KS10.MC1[4,31 1 ] MICRO 31(254) 

INOUT.MIC[4,31 1 ] 14:52 16- JULY - 198 1 



U 3661, 0001,3771,0003,4365,5004,1700,0200,0000,0002 

U 3662, 0001,3771,0004,4365,5004,1700,0200,0000,0002 

U 3663, 0001,3772,0000,4365,5004,1700,0200,0000,0002 

U 3664, 0001,4221,0004,4174,0004,1700,0000,0000,0000 

U 3665, 0001,0111,0703,4174,4004,1700,0000,0000,0000 

U 3666, 0001,3445,0505,4174,4004,1700,0000,0000,0000 

U 3667, 0001,3443,0300,4174,4004,1701,0200,0000,0036 

U 3670, 0004,3333,0005,4175,5004,1701,0200,0000,0002 

U 3671, 0001,3333,0001,4175,5004,1701,0200,0000,0002 

U 3672, 0001,3440,0404,0174,4004,1700,0400,0000,0000 
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7507 
7508 
7509 
7510 
751 1 
7512 
7513 
7514 
7515 
7516 
7517 
7518 
7519 
7520 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7530 



, TOC 



'SMALL SUBROUTINES" 



; HERE ARE A COLLECTION ON 1-LINE SUBROUTINES 
LOADAR: MEM READ, [AR]_MEM, ; FROM MEMORY TO AR 

RETURN [1] ; RETURN TO CALLER 

LOADARX: MEM READ, [ ARX ]_MEM , RETURN [1] 

LOADO: MEM READ, Q_MEM, RETURN [1] 

CLARXL: [ARX]_0, HOLD RIGHT, RETURN [1] 

INCAR: [AR]_[AR]+1, RETURN [1] 

SBRL: [BR]_[BR]*2, RETURN [1] 

STRTIO: VMA_[ AR ] WITH FLAGS, RETURN [1] 

STOBR: MEM WRITE, MEM__[BR], RETURN [4] 

STOPC: MEM WRITE, MEM_[PC], RETURN [1] 

AC ARX: AC_[ARX], RETURN [1] 



; KSIO.k. i[4,31 1 ] MICRO 31(254) 

; INOUT.MIC[4,31 1 ] 14:52 1 6-JULY - 198 1 



D 


0703 , 


0003 , 


1650 


2 100 


D 


0706 , 


0006 , 


1650 


2 100 


D 


0707 , 


0007 , 


1650 


2 100 


D 


07 16 , 


0006 , 


1651 


2 100 


D 


0717 , 


0007 , 


1651 


2 100 


D 


0726, 


0006, 


1652 


2100 


D 


0727, 


0007, 


1652 


2100 


D 


0730, 


0000, 


1653 


2100 


D 


0731 , 


0001 , 


1653 


2 100 


D 


0732 , 


0002 , 


1653 


2 100 


D 


0733 , 


0003 , 


1653 


2 100 


D 


0734 , 


0004 , 


1653 


2 100 


D 


0735 , 


0005 , 


1653 


2 100 


D 


0736 [ 


0006! 


1653 


2100 


D 


0737, 


0007, 


1653 


2100 


D 


0740, 


0000, 


1654 


2 100 


D 


074 1 , 


0001 , 


1654 


2 100 


D 


0742 , 


0002 , 


1654 


2 100 


D 


0743 , 


0003 , 


1654 


2 100 


D 


0744 , 


0004 , 


1654 


2 100 


D 


0745 , 


0005 , 


1654 


2 100 


D 


0746, 


0006, 


1654 


2100 


D 


0747, 


0007, 


1654 


2100 


D 


0750, 


0000, 


1655 


2 100 


D 


0751 , 


0001 , 


1655 


2 100 


D 


0752 , 


0002 , 


1655 


2 100 


D 


0753 , 


0003 , 


1655 


2 100 


D 


0754 , 


0004 , 


1655 


2100 


D 


0755, 


O0O5 , 


1655 


2 100 


D 


0756, 


0006, 


1655 


2100 


D 


0757, 


0007, 


1655 


2100 


D 


0760, 


0000 , 


1656 


2100 


D 


0761 , 


0001 , 


1656 


2100 


D 


0762, 


0002, 


1656 


2100 


D 


0763, 


0003, 


1656 


2100 


D 


0764, 


0004, 


1656 


2100 


D 


0765, 


0005, 


t656 


2100 


D 


0766, 


0006, 


1656 


2100 


D 


0767, 


0007, 


1656 


2100 
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753 1 


. TOC 


"UNDEFINED 10 


INSTRUCTIOI s 


7532 








7533 




DCODE 




7534 


703 : 


I , B/3 , 


.J/T0T7OO 


7535 


706 : 


I , B/6 , 


.j/T 0T7OO 

KJ / 1U 1 1 \J\J 


7536 




I B/7 


1 1 / T C1T700 

vj / J- KJ 1 / \J\J 


7537 








7538 


716: 


I , B/6 , * 


J / I0T7 10 


7539 




l\ E/l\ 


J / I0T7 10 

KJ f x vj 1 1 1 \j 


7540 








754 1 


726 : 


I , B/6 , 


J/I0T720 


7542 




I , B/7 , 


J/I0T720 


7543 








7544 


730 : 


I , B/0, 


J/I0T73O 


7545 




I ' B / 1 


J/I0T73O 


7546 




I , B / 2 , 


J/I0T730 


7547 




I , B/3 , 


J/I0T730 


7548 




I , B/4 , 


J/I0T73O 


7549 




I , B/5 , 


J / I0T73O 

KJ / 1 U 1 / UV 


7550 




I , B/6 , 


.1 / I0T73O 

KJ f A w 1 f w \J 


755 1 




I B/7 


.1 / T0T73O 

KJ 1 X KJ 1 / \J \J 


7552 








7553 


740 : 


I t B/0, 


.1/10x740 

KJ / X KJ 1 / *r \s 


7554 




T ' R/ 1 ' 

1 , D/ 1 , 


1 1 / TnT74D 


7555 




I , B/2 , 


J/I0T740 


7556 




I , B/3 , 


J/T0T74O 

KJ f X w 1 / " \J 


7557 




I , B/4 , 


J/I0T740 


7558 




I , B/5 , 


J/I0T740 


7559 




I , B/6 , 


J/I0T74O 


7560 




I, B/7^ 


J/I0T740 


7561 








7562 


750: 


I, B/0, 


J/I0T750 


7563 




I , B/1 , 


J/I0T750 


7564 




I , B/2 , 


J/I0T75O 


7565 




I , B/3 , 


J/I0T75O 


7566 




If B/4, 


U/I0T750 


7567 




I , - B/5 , 


J/I0T750 


7568 




i! B/6^ 


J/I0T75O 


7569 




I, B/7, 


J/I0T750 


7570 








7571 


760: 


I. B/0, 


J/I0T760 


7572 




1, B/1, 


J/I0T76O 


7573 




I, B/2, 


J/I0T760 


7574 




I, B/3, 


J/I0T76O 


7575 




I. B/4, 


J/I0T760 


7576 




I , B/5, 


J/I0T76O 


7577 




I , B/6, 


J/I0T760 


7578 




I, B/7, 


J/I0T760 



7579 



KS10.MC1[4,311] 

IN0UT.MIC[4,31 1 ] 



MICRO 31 (254) 
14:52 16-JULY-1981 



D 0770, 
D 0771 , 
D 0772, 
D 0773, 
D 0774, 
D 0775, 
D 0776, 
D 0777, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1657 
1657 
1657 
1657 
1657 
1657 
1657 
1657 



,2100 
,2100 
,2100 
,2100 
,2100 
,2100 
,2100 
,2100 



U 1650, 2740,4551,0202,4374 

U 1651, 2740,4551,0202,4374 

U 1652, 2740,4551,0202,4374 

U 1653, 2740,4551,0202,4374 

U 1654, 2740,4551,0202,4374 

U 1655, 2740,4551,0202,4374 

U 1656, 2740,4551,0202,4374 

U 1657, 2740,4551,0202,4374 



, 0007 ,0700 , 0000 , 0077 , 7740 
, 0007 , 0700 , 0000 , 0077 ,7740 
, 0007 , 0700 , OOOO , 0077 , 7740 
, 0007 , 0700 , 0000 , 0077 , 7740 
, 0007 , 0700 , 0000 , 0077 ,7740 
, 0007 , 0700 , 0000 , 0077 ,7740 
, 0007 , 0700 , 0000 , 007 7 , 7 740 
, 0007 , 0700 , 0000 , 0077 , 7740 
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7580 770: 


I , 


B/0, 


J/I0T770 


7581 


I , 


B/1, 


J/I0T770 


7582 


I , 


B/2, 


J/I0T77O 


7583 


I , 


B/3, 


J/I0T770 


7584 


I , 


B/4, 


J/I0T770 


7585 


I , 


B/5, 


J/I0T770 


7586 


I , 


B/6, 


J/I0T77O 


7587 


I , 


B/7, 


J/I0T770 


7588 


.UCODE 







7589 



7590 


1650: 




7591 


I0T7OO: 


UUO 


7592 


1651 : 




7593 


I0T710: 


UUO 


7594 


1652: 




7595 


I0T72O: 


UUO 


7596 


1653: 




7597 


I0T73O: 


UUO 


7598 


1654: 




7599 


I0T740: 


UUO 


7600 


1655: 




7601 


I0T750: 


UUO 


7602 


1656: 




7603 


I0T760: 


UUO 


7604 


1657: 




7605 


I0T77O: 


UUO 



7606 



; KS10.MC1[4,311] MICRO 31(254) 

; IN0UT.MIC[4,31 1 ] 14:52 16-JULY-1981 



D 0704, 1200,1754,0100 
D 0705, 1200,1755,0100 



U 1 754 , 3673 , 3443 , 0300 ,4174, 4207 , 0700 , 0200 , 0004 , 00 1 2 
U 3673 , 1515,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 



U 1755, 3674 , 3443 , 0300 ,4174, 4207 , 0700 , 0200 , 0003 , 00 1 2 
U 3674 , 1516,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 
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7607 .TOC "UMOVE AND UMOVEM 
7608 

7609 . DCODE 

7610 704: IOT, J/UMOVE 

7611 IOT , J/UMOVEM 

7612 .UCODE 
7613 

7614 1754: 

7615 UMOVE: VMA_[ AR ] , 

7616 START READ, 

7617 SPEC/PREV 

7618 MEM READ, 

7619 [ AR ]_MEM , 

7620 J/STAC 
7621 

7622 1755: 

7623 UMOVEM: VMA_[AR], 

7624 START WRITE, 

7625 SPEC/PREV 

7626 [AR]_AC, 

7627 J/STMEM 
7628 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
WAIT FOR MEMORY 
PUT DATA IN AR 
GO PUT AR IN AC 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
FETCH AC 
STORE IN MEMORY 



KS10.MC1 [4,31 1 ] 
IN0UT.MIC[4,31 1 J 



MICRO 31(254) 
14:52 16-JULY- 1981 



U 0104, 3677,3333,0004,7174,4007,0700,0410,0000,0212 

U 0114, 3676,4223,0000,4364,4277,0700,0210,0000,0010 

U 01 16, 3675,4221 ,0004,4174,4007,0700,0200,0021 ,1016 

U 3675, 2476,3333,0017,4175,5007,0701,0200,0000,0002 

U 2476, 3671 ,01 1 1 , 0704 , 4 1 70 ,4007 , 0700 , 02 10 , 0023 , 1016 

U 2477, 0005,4443,0000,4174,4107,0700,0000,0000,0074 

U 0004 , 2500 , 4443 , 0000 , 4 1 74 , 4 1 07 , 0640 , OOOO , 0000 , 0062 

U 0005, 0004,4443,0000,4174,4007,0660,0000,0000,0000 

U 2500, 0117,3443,0100,4174,4007,0700,0200,0014,0012 

U 2501, 2502,4571,1203,4374,4007,0700,0000,0024,1200 

U 2502 , 3667 ,3551, 0303 , 4370 , 4007 , 0700 , 00 1 , 0020 , 0000 



U 2503 , 2717, 377 1 , 0002 , 4365 , 56 1 7 ,0700 , 0200 , 0000 , 0002 
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7629 


; HERE 


WITH HALT CODE IN THE T1 




7630 


=010* 






7631 


HALTED 


: WORK[SV.ARX] [ ARX ] , 


;SAVE TEMP REGISTER 


7632 




CALL [SAVVMA] 


;PUT VMA IN WORK [SV. VMA] 


7633 


= 1 10* 


ABORT MEM CYCLE, 


; ABORT CYCLE IN PROGRESS 


7634 




CALL [WRTHSB] 


; WRITE HALT STATUS BLOCK 


7635 


= 111* 






7636 


PWRON: 


[ARX]_0, VMA PHYSICAL 


WRITE ; STORE HALT CODE 


7637 








7638 




MEM WRITE, MEM [T1 ] 


; IN LOCATION 


7639 


=0 


NEXT [ARX] PHYSICAL WRITE, 


7640 




CALL [STOPC] 




7641 


H1 : 


SET HALT, J/HALTLP 


; TELL CONSOLE WE HAVE HALTED 


7642 








7643 








7644 


4 : 


UNHALT, 


; RESET CONSOLE 


7645 




SKIP EXECUTE, J/CONT 


;SEE IF CO OR EX 


7646 


5: 






7647 


HALTLP 


: SKIP/-C0NTINUE, J/4 


;WAIT FOR CONTINUE 


7648 








7649 


=0 






7650 


CONT : 


VMA [PC], 


; LOAD PC INTO VMA 


7651 




FETCH, 


; START READ 


7652 




J/XCTGO 


;D0 THE INSTRUCTION 


7653 




[AR] VMA 10 READ 


;PUT FLAGS IN AR 


7654 


=0 


EAR] [AR].OR.#, 


;PUT IN ADDRESS 


7655 




#/200000, HOLD LEFT, 


; OF CSL REGISTER 


7656 




CALL [STRTIO] 




7657 


CONT 1 : 


MEM READ, 


;WAIT FOR DATA 


7658 




[HR] MEM, 


;PUT IN HR 


7659 




LOAD INST, 


; LOAD IR, ETC. 


7660 




J/XCT1 


;G0 DO THE INSTRUCTION 


7661 









KSIO.ftc'i [4,31 1 ] 
INOUT.MIC[4,31 1 ] 



MICRO 31(254) 
14:52 16-JULY-1981 
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7662 
7663 
7664 
7665 
7666 
7667 
7668 
7669 
7670 
7671 
7672 
7673 
7674 
7675 
7676 
7677 
7678 
7679 
7680 
7681 
7682 
7683 
7684 
7685 
7686 
7687 
7688 
7689 
7690 
7691 
7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 
7700 
7701 



.TOC "WRITE HALT STATUS BLOCK" 

; THE HALT STATUS BLOCK LOOKS LIKE: 



00! 




MAG 




01 ! 




PC 




02! 




HR 




03! 




AR 




04! 




ARX 




05! 




BR 




06! 




BRX 




07 ! 




ONE 




10! 




EBR 




1 1 ! 




UBR 




12 ! 




MASK 




13! 




FLG 




14! 




PI 




15! 




XWD1 




16! 




TO 




17 ! 




T1 






VMA FLAGS 


! 


VMA 



KS10.MC1 [4,31 1 ] 
IN0UT.MIC[4,31 1 3 



MICRO 31(254) 
14:52 16-UULY-1981 



U 0001, 3677,3333,0004,7174,4007,0700,0410,0000,0212 

U 0011, 0024,3771,0004,7274,4007,0701,0000,0000,0227 

U 0024, 3701,4223,0000,4364,4277,0700,0210,0000,0010 

U 0026, 2477,4443,0000,4174,4107,0700,0000,0000,0074 

U 3676, 2504,3771,0004,7274,4007,0422,0000,0000,0227 

U 2504 , 370 1 , 3333 , 00 1 2 , 4 1 74 , 4437 , 0700 , 0000 , 0000 , 0000 

U 2505, 0002,3771,0004,7274,4004,1701,0000,0000,0212 

U 3677 , 3700, 377 1 , 0004 , 4354 , 4007 , 0700 , OOOO , OOOO , OOOO 

U 3700, 0010,3333,0004,7174,4004,1700,0400,0000,0210 
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7702 
7703 
7704 
7705 
7706 
7707 
7708 
7709 
7710 
771 1 
7712 
7713 
7714 
7715 
7716 
7717 
7718 
7719 
7720 



; START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY 



1 : 

1 1 : 

= 10* 



WRTHSB: 



SAVVMA : 



WORK[SV. ARX]_[ARX] 
CALL [SAVVMA] 
C ARX ]__WORK [ HSBADR ] 
ABORT MEM CYCLE, CALL [DUMP] 
SET HALT, J/H1 



SAVE TEMP REGISTER 
WORK[SV. VMA]_VMA 



[ARX]_WORK[HSBADR] , ; 
SKIP AD.LE.O, 4T 
READ [MASK] , LOAD PI , 
J/DUMP 

[ARX]_WORK[SV.ARX] , 
RETURN [2] 

[ARX]_VMA 

WORK[SV. VMA]_[ARX] , 
RETURN [10] 



GET ADDRESS OF HSB 
SEE IF VALID 
TURN OFF PI SYSTEM 
AND GO TAKE DUMP 

;D0 NOT DUMP ANYTHING 



KS10.MC1 [4,31 1 ] MICRO 31(254) 

IN0UT.MIC[4 f 311] 14:52 16-JULY-1981 



y 


3701 


9510 3333 


y 


25 10 


2747 3333 


y 


2512, 


3702 3333 


y 


3702 


9R 1 1 01 1 1 


y 


25 1 1 


01 Al 3333 

,0000, 


U 


25 1 3 


9*^14 3333 


y 


25 1 4 


01 Al 3333 

/ *+ f ,0000, 


y 


25 1 6 


25 1 5 377 1 


U 


25 1 5 


2747 3333 


y 


2517, 


37D3 3333 


U 


3703 


9590 0111 

£• W t V , \y III, 


U 


2520, 


2147 , 3333 , 


y 


2522 , 


3704 , 3333 , 


u 


3704 , 


252 1,0111, 


y 


252 1 , 


2747 3333 


y 


2523 , 


3705 3333 


y 


3705 


9594 f)1 1 1 


y 


2524 


01 Al 3333 


y 


2526 


37Hfi 3333 


y 


3706 




y 


2525 


9747 3333 


y 


2527 , 


3707 3333 


U 


3707^ 


2530,01 1 1 , 


U 


2530, 


2747,3333, 


U 


2532, 


2531 ,3333, 


U 


2531 , 


2747,3771 , 


U 


2533, 


3710,3333, 


U 


3710, 


371 1 ,3771 , 


U 


371 1 , 


3712,3771 , 


U 


3712, 


3713,3443, 



0004 ,4174, 4007 , 0700 
0000 ,4175, 5007 , 070 1 
0001 ,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0002,4175,5007,0701 
0003,4175,5007,0701 
0003 ,7174, 4007 , 0700 
0003 , 7274 , 4007 , 070 1 
0003 ,4175, 5007 , 070 1 
0005,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0006,4175,5007,0701 
0007,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0010,4175,5007,0701 
0011,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0012,4175,5007,0701 
0013,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0014,4175,5007,0701 
0015,4175,5007,0701 
0704 ,4170, 4007 , 0700 
0016,4175,5007,0701 
0017,4175,5007,0701 
0003 , 7274 , 4007 , 0701 
0003 ,4175, 5007 , 070 1 
0003 , 7274 , 4007 , 0701 
0004 , 7274 , 4007 , 0701 
0400 ,4174, 4007 , 0700 



0200,0021 , 1016 
0210,0000,0002 
0200 , 0000 , 0002 
0200,0023, 1016 
0210,0000,0002 
0200,0000,0002 
0410,0000,021 1 
0000,0000,0212 
0210,0000,0002 
0200,0000,0002 
0200,0023, 1016 
0210,0000,0002 
0200 , 0000 , 0002 
0200,0023, 1016 
0210,0000,0002 
0200 , 0000 , 0002 
0200,0023, 1016 
0210,0000,0002 
0200,0000,0002 
0200,0023, 1016 
0210,0000,0002 
0200,0000,0002 
0200,0023, 1016 
0210,0000,0002 
0200,0000,0002 
0010,0000,0210 
0200 , 0000 , 0002 
0000,0000,021 1 
0000,0000,0210 
0200,0000,0010 



U 3713, 0006,3771,0004,7274,4004,1701,0000,0000,0212 
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7721 ;DUMP OUT THE 2901 

7722 DUMP: READ [ARX], VMA PHYSICAL WRITE 

7723 =0* MEM WRITE, MEM_[MAG] , CALL [NEXT] 

7724 MEM WRITE, MEM_[PC] 

7725 NEXT [ARX] PHYSICAL WRITE 

7726 =0* MEM WRITE, MEM_[HR], CALL [NEXT] 

7727 MEM WRITE, MEM_JAR] 

7728 =0* WORK[SV.AR]__[AR] , CALL [NEXT] 

7729 [ AR ]_WORK [ SV . ARX ] 

7730 =0* MEM WRITE, MEM_[AR], CALL [NEXT] 

7731 MEM WRITE, MEM_[BR] 

7732 NEXT [ARX] PHYSICAL WRITE 

7733 =0* MEM WRITE, MEM_[ BRX ] , CALL [NEXT] 

7734 MEM WRITE, MEM_[ ONE ] 

7735 NEXT [ARX] PHYSICAL WRITE 

7736 =0* MEM WRITE, MEM_[ EBR ] , CALL [NEXT] 

7737 MEM WRITE, MEM_[UBR] 

7738 NEXT [ARX] PHYSICAL WRITE 

7739 =0* MEM WRITE, MEM_[ MASK ] , CALL [NEXT] 

7740 MEM WRITE, MEM_[ FLG ] 

7741 NEXT [ARX] PHYSICAL WRITE 

7742 =0* MEM WRITE, MEM_[PI], CALL [NEXT] 

7743 MEM WRITE, MEM_[XWD1] 

7744 NEXT [ARX] PHYSICAL WRITE 

7745 =0* MEM WRITE, MEM_[TO], CALL [NEXT] 

7746 MEM WRITE, MEM_[ T 1 ] 

7747 =0* [ AR ]_WORK [ SV . VMA ] , CALL [NEXT] 

7748 MEM WRITE, MEM_[ AR ] 

7749 HSBDON: [ AR ]__WORK [ SV . AR ] 

7750 [ ARX ]_WORK [ SV . VMA ] 

7751 VMA_[ARX] 

7752 [ ARX ]_WORK [ SV . ARX ] , 

7753 RETURN [6] 
7754 



KS10.MC1[4,311] 
PAGEF.MIC[4,31 1 ] 
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7755 

7756 

7757 

7758 

7759 

7760 

7761 

7762 

7763 

7764 

7765 

7766 

7767 

7768 

7769 

7770 

7771 

7772 

7773 

7774 

7775 

7776 

7777 

7778 

7779 

7780/ 

7781 

7782 

7783 

7784 

7785 

7786 

7787 

7788 

7789 

7790 

7791 

7792 

7793 

7794 

7795 



.NOBIN 

.TOC " PAGE FAIL REFIL LOGIC" 

WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE 
TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED 
THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE. 

THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE 
SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER, 
THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT. 

;THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE: 



THING 

OLD VMA 

OLD AR 

OLD ARX 

OLD BR 

OLD BRX 

KL PAGING BIT 



W BIT 
C BIT 

PI CYCLE 
MAP FLAG 
CLEANUP CODE 

SPT BASE 

CST BASE 

CST MASK 

CST DATA (PUR) 

PAGE TABLE ADDRESS 

PHYSICAL PAGE # (PPN) 

CST ENTRY 

SPT ENTRY 

PAGE TABLE ENTRY 

PAGE NUMBER 

PAGE FAIL WORD 



WHERE KEPT 
WORKSPACE WORD 210 
WORKSPACE WORD 21 1 
WORKSPACE WORD 212 
WORKSPACE WORD 213 
WORKSPACE WORD 214 
EBR BIT 1 (IN 2901 ) 



FLG BIT 4 
FLG BIT 6 

FLG BIT 5 
FLG BIT 18 
FLG BITS 32-35 

WORKSPACE WORD 215 

WORKSPACE WORD 216 

WORKSPACE WORD 217 

WORKSPACE WORD 220 

AR 

AR 

AR 

AR 

AR 

BR 

BRX 



USE 

SAVES VMA 
SAVES AR 
SAVES ARX 
SAVES BR 
SAVES BRX 

INDICATES KL STYLE (TOPS-20) PAGING 

INSTEAD OF KI STYLE (TOPS- 10 AND DIAGNOSTIC) 

MODE PAGING 

PAGE CAN BE WRITTEN 

DATA IN THIS PAGE MAY BE PUT 

INTO CACHE 

STORING OLD PC DURING PI 
MAP INSTRUCTION IN PROGRESS 
WHAT TO DO SO INSTRUCTION MAY BE 
RESTARTED 

ADDRESS OF SHARED-POINTER-TABLE 
ADDRESS OF CORE -STATUS-TABLE 
BITS TO KEEP ON CST UPDATE 
BITS TO SET ON CST UPDATE 
WHERE THIS PAGE TABLE IS LOCATED 
RESULT OF THIS PROCESS 
CORE STATUS TABLE ENTRY 
WORD FROM SPT 
WORD FROM PT 

INDEX INTO CURENT PAGE TABLE 
WHAT HAPPENED (ALSO MAP RESULT) 



KSIO.Mv, r[4, 31 1 ] 
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7796 
7797 
7798 
7799 
7800 
7801 
7802 
7803 
7804 
7805 
7806 
7807 
7808 
7809 
7810 
781 1 
7812 
7813 
7814 
7815 
7816 
7817 
7818 
7819 
7820 
7821 
7822 
7823 
7824 
7825 
7826 
7827 
7828 
7829 
7830 



KL10 PAGING 



WORD FORMATS 



Section Pointer 



The section pointer is found in the user or exec section table. 
(Part of UPT or EPT . ) 

Section pointer provides (via the SPT) the physical address of 
the PAGE TABLE for the given section. 

Code: No-access (trap) 

1 Immediate 

2 Share 

3 Indirect 

4-7 Unused, reserved 

12 3 4 5 6 18 35 

!CODE!P!W! ! C !///////// ! PAGE TABLE IDENTIFIER ! 
!010 ! ! ! ! !/////////! (SPT INDEX) ! 

NORMAL SECTION POINTER (Code = 2) 

O 2 3 4 5 6 9 18 35 

!CODE!P!W! ! C !///! SECT ION ISECTION TABLE IDENTIFIER! 

!011 ! ! ! ! !///!TABLE INDEX! (SPT INDEX) ! 

INDIRECT SECTION POINTER (Code = 3) 
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7831 
7832 
7833 
7834 
7835 
7836 
7837 
7838 
7839 
7840 
7841 
7842 
7843 
7844 
7845 
7846 
7847 
7848 
7849 
7850 
7851 
7852 
7853 
7854 
7855 
7856 
7857 
7858 
7859 
7860 
7861 
7862 
7863 



PAGE POINTERS 

FOUND IN PAGE TABLES 

1 2 3 4 5 6 

+ + - + - + - + -+- - - -■+ 

!CODE!P!W! !C !////! 
!001 ! ! ! ! !////! 
+ + - + - + - + - + + 



12 



PHYSICAL ADDRESS OF PAGE 



KS10 MICROCODE V123, 1 MARCH, 
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35 
- - + 



19 



IMMEDIATE POINTER (code field 



1) 



B12-35 give PHYSICAL ADDRESS OF PAGE 

if B12-17 >< 0, page not in core-trap 
if B12-17 ■= 0, B23-35 give CORE PAGE 

NUMBER of page, B18^22 MBZ 



2 3 6 18 

!CODE ! SAME AS!/////////! 
!010 ! IMMED. !/////////! 



SPT INDEX 



35 
- - + 
f 
f 



SHARED POINTER (code field = 2) 

B18-35 Give SPT INDEX ( SPTX ) . SPTX + SPT BASE 
ADDRESS = physical core address of word 
holding physical address of page. 
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7864 
7865 
7866 
7867 
7868 
7869 
7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 



12 3 6 9 17 18 35 

!C0DE!5AME AS !///! PAGE \ PAGE TABLE IDENTIFIER! 
!011 ! IMMED. !///!NUMBER ! (SPT INDEX) ! 

INDIRECT POINTER (code field =3) 

This pointer type causes another pointer to be fetched 
and interpreted. The new pointer is found in word N 
(B9-17) of the page addressed by C(SPT + SPTX). 



SPT ENTRY 

Found in the SPT, i.e., when fetching C(SPT +SPTX) 

12 35 



!////////////////////! 
!////////////////////! 



PHYSICAL ADDRESS OF PAGE ! 

OR PAGE TABLE ! 



B12-35 Give PHYSICAL ADDRESS of page. 

The base address (physical core address) of the SPT 
resides in one AC of the reserved AC block. 



KS10.MC1[4,311] 
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7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908 
7909 
7910 
791 1 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
7920 
7921 
7922 
7923 
7924 
7925 
7926 
7927 
7928 
7929 
7930 



PHYSICAL STORAGE ADDRESS 

Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES. 



12 
+ -- 
! 

+ - - 



17 18 23 35 

!MBZ ! CORE PAGE NUMBER ! 
! ! IF B12-17 = O ! 
+ + + 



If B12-17 = 0, then B23-35 are CORE PAGE NUMBER (i.e., 
B14-26 of physical core address) of page and B18-22 
MBZ. If B12-17 >< 0, then address is not core and 
pager traps. 



CORE STATUS TABLE ENTRY 

Found when fetching C(CBR + CORE PAGENO) 

5 32 



O 

+ + - 

! CODE ! 

4- + - 



34 35 
+ - + 

!M1 
+ - + 



BO- 5 are code field: 

- unavailable, trap 
1-77 - available 

B32-34 reserved for future hardware specification. 
B35 is "modified" bit, set on any. : write ref to page. 
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7931 
7932 
7933 
7934 
7935 
7936 
7937 
7938 
7939 
7940 
7941 
7942 
7943 
7944 
7945 
7946 
7947 
7948 
7949 
7950 
7951 
7952 
7953 
7954 
7955 
7956 
7957 
7958 
7959 
7960 
7961 
7962 
7963 
7964 
7965 
7966 
7967 
7968 
7969 
7970 
7971 
7972 



QUANTITIES IN HARDWARE REGISTERS 



SPT 



SPT Base Register 



14 35 
+ + 

! PHYSICAL CORE WORD ADDRESS. ! 
+ - - + 



CBR 



CST Base Register 



14 
+ - - 



35 



CSTMSK CST Update Mask 




+ - 

! 

+ - 



PHYSICAL CORE WORD ADDRESS 



32 35 

- + + - + 

! 1 1 1 ! 1 ! 

- + + - + 



MASK 



ANDed with CST word during update 

(B32-35 must be all 1's to preserve existing CST information) 

CSTDATA CST Update Data 

O 32 34 35 
+ _ 

! DATA 



-4- + - + 

! 000 ! ! 
- + + - + 



IORed with CST word during update 

(B32-35 must be all O's to preserve existing CST information) 

All unspecified bits and fields are reserved for future 
specification by DEC. 
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; KS10.MC1 [4,31 1 3 MICRO 31(254) 

; PAGEF.MIC[4,31 1 ] 13:06 15-JULY-1981 



D 0257, 1215, 1553,0100 



U 1553 , 3714,3551, 0303 , 4374 , 0007 , 0700 , 0000 , 00 1 6 , 0000 

U 3714, 3715,3771,0006,4354,4007,0700,0000,0000,0000 

U 3715, 3716,4551, 0606 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 

U 3716, 3717, 3333 ,0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 O 

U 3717, 3720,3771,0005,7274,4007,0701,0000,0000,0230 

U 3720 , 2506 , 4553 , 0500 , 4374 , 4007 , 033 1 , OOOO , 0003 , 0000 

U 2506, 3730,3771,0013,4370,4007,0700,0000,0040,0002 

U 2507, 0100,3440,0303,0174,4156,4700,0400,0000,0000 



U 3777, 3721,3333,0003,7174,4007,0700,0400,0000,0211 

U 3721, 3722,3333,0006,7174,4007,0700,0400,0000,0214 

U 3722 , 3723 , 377 1 , 0006 , 4354 , 4007 , 0700 , 0000 , 0000 , OOOO 

U 3723 , 3724 , 3333 , 0006 ,7174, 4007 , 0700 ,0400 , OOOO , 02 10 

U 3724 , 1 060 , 3333 , 0004 ,7174, 4007 , 0370 , 0400 , OOOO , 02 1 2 



U 1060, 1060,3773,0000,4304,4003, 1702,0000,0000,0000 

U 1 06 1 , 1 507 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , OOOO , 02 1 3 

U 1 063 , 3725 ,3771, 0006 , 4374 , 4007 , 0700 , OOOO , OOOO , OOOO 

U 1065, 1502,4571 , 1206,4374,4007,0700,0000,0037,0000 

U 1067, 1502,4571 , 1206,4374,4007,0700,0000,0037,0000 

U 1070, 3730,3333,0005,7174,4007,0700,0400,0000,0213 

U 1 07 1 , 1 507 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , OOOO , 02 1 3 

U 1 072 , 3730 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , OOOO , 02 1 3 

U 1073, 3730,3333,0005,7174,4007,0700,0400,0000,0213 



U 3725, 3726,3333,0006,7174,4007,0700,0400,0000,0160 
U 3726, 3727,3333,0006,7174,4007,0700,0400,0000,0161 
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7973 
7974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 
8004 
8005 
8006 
8007 
8008 
8009 
8010 
801 1 
8012 
8013 
8014 
8015 
8016 
8017 
8018 
8019 
8020 
8021 
8022 
8023 
8024 
8025 
8026 
8027 
8028 



257: 



1553: 
MAP: 



.BIN 

. DCODE 

IOT, 

.UCODE 



AC, 



J/MAP 



[AR]_[AR] . OR . # , 
#/ 160000, 
HOLD RIGHT 
[BRX]_VMA 

[BRX3_[BRX] . AND . # , 
#/400000, HOLD RIGHT 
WORKCSV. VMA]_[BRX] 
[BR]_W0RK[APR3 
TR [BR 3, #/030000 
STATE_[ MAP3 , J/PFMAP 
ACJAR3, NEXT INST 



ASSUME PHYSICAL REF 
FAKE ANSWER 

PUT VMA AND FLAGS IN BRX 
JUST KEEP USER BIT 



SAVE IN WORKSPACE 
; GET APR FLAGS 
; PAGING ENABLED? 
; YES- -DO REAL MAP 
; NO- -RETURN VIRTUAL ADDRESS 
; HARDWARE COMES HERE ON PAGE TABLE NOT VALID (OR INTERRUPT) WHEN 
;. STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING 
■; MEM WAIT IS SAVED ON THE STACK. 
3777: 

PAGE-FAIL: 

WORK[ SV . AR 3_[ AR ] 
ITRAP: WORK[SV.BRX3_[BRX3 

[BRX3_VMA 

WORK[SV. VMA3_[BRX3 
WORK[SV. ARX3_[ARX3 , 
SKIP IRPT 



=0000 
PFD : 



DBM/PF DISP, DBUS/DBM, 
AD/D, DEST/PASS, 4T , 
DISP/DP LEFT, J/PFD 



=0001 
=001 1 

=0101 
=01 1 1 
= 1000 
= 1001 
= 1010 
= 101 1 

BADDATA: 



;SEE IF INTERRUPT (SAVE DISPATCH) 

; BRING CODE TO 2901 'S 
;PUT ON DP 18-21 
;DISPATCH ON IT 
;(1) INTERRUPT 
WORK[SV.BR3_[BR3 , J/PFPI 1 

;(3) BAD DATA FROM MEMORY 
; GET THE BAD DATA 
; DO NOT LOOK AT PARITY • 
;SAVE IN AC BLK 7 
; (5) NXM ERROR 
[ BRX 3_[ 370000 3 XWD O, J/HARD 

; (7) NXM & BAD DATA 
[BRX3_[3700003 XWD 0, J/HARD 

; ( 10) WRITE VIOLATION 
J/PFMAP 

; 1 1 23 ] (11) 1 ms timer and movsrj 
J/PFPI 1 

;(12) PAGE NOT VALID 
J/PFMAP 

;(13) EXEC/USER MISMATCH 
J/PFMAP 



[BRX3__I0 DATA, 
AD PARITY OK/0, 
J/BADDATA 



WORK[SV.BR3__[BR3 , 
WORK[SV.BR3_[BR3 . 
WORK[SV.BR3_[BR3 , 
WORK[SV.BR3_[BR3 . 



W0RK[BADWO3_[BRX3 
W0RK[BADW13 [BRX 3 



;SAVE BAD WORD 
; AGAIN 



; KS10.MC1[4,311] MICRO 31(254) KS10 MICROCODE V123, v 1 MARCH, 1982 -- SEAN KEENAN, DON DOS5A Page 223-1 

; PAGEF.MIC[4,31 1 ] 13:06 15-JULY-1981 PAGE FAIL REFIL LOGIC 

U 3727, 1502,4571,1206,4374,4007,0700,0000,0036,0000 ; 8029 [ BRX ]_[ 360000] XWD 0, J/HARD 

; 8030 



/ 



; KS10.MC1[4 f 311] MICRO 31(254) 

; PAGEF.MIC[4,31 1] 13:06 15- JULY.- 1981 



U 3730 , 3731, 4223 , OOOO , 4364 , 4277 , 0700 , 0200 , OOOO , 00 1 O 



U 3731, 3732,3551,1313,4374,0007,0700,0000,0002,4000 
U 3732 , 2534 , 4553 , 0600 , 4374 , 4007 , 032 1 , OOOO , 0002 , OOOO 



U 2534, 2535,3551,0606,4374,0007,0700,0000,0001,0000 

U 2535, 3733,4551 ,0606,4374,0007,0700,0000,0041 , 1000 

U 3733, 3734,6551 ,0606,4374,0007,0700,0000,0000, 1000 

U 3734, 2536,3441 ,0605,4174,4007,0700,2000,0071 ,0007 

U 2536 , 2536 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , OOOO 

U 2537, 3735,4251,0505,4374,4007,0700,0000,0000,0777 

U 3735 , 2540 , 4553 , 1000 , 4374 , 4007 , 032 1 , OOOO ,0000 , 0040 

U 2540 , 2542 , 3333 , 0006 ,4174, 4007 , 0520 , OOOO , OOOO , OOOO 

U 254 1 , 3775 , 3447 , 0504 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
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8031 ;WE HAVE SAVED AR, ARX, BR AND BRX. WE MERGE IN HERE FROM 'MAP 

8032 ; INSTRUCTION, SAVE THE VMA AND START THE PAGE FAIL WORD. 

8033 PFMAP: ABORT MEM CYCLE ; CLEAR PAGE FAIL 

8034 [ FL<3]_[ FLG] . OR . # , ; PRESET W AND C TO 1 

8035 FLG.W/1, FLG.C/1, ;BITS INVOLVED 

8036 HOLD RIGHT ; LEAVE RH ALONE 

8037 TL [BRX}, WRITE TEST/1 ;IS THIS A WRITE TEST? 

8038 =0 [BRX]_[BRX] . OR . # , 

8039 #/ 10000, 

8040 HOLD RIGHT ; YES- -TURN INTO WRITE REF 

8041 [BRX]_[BRX] . AND . # , ; START PAGE FAIL WORD 

8042 "#/4 11000, ; SAVE 3 INTERESTING BITS 

8043 HOLD RIGHT ; SAVE VIRTUAL ADDRESS 

8044 ;USER ADDR (400000) 

8045 ;WRITE REF (010000) 

8046 ; PAGED REF (001000) 

8047 . [BRX]_[BRX] .XOR.#, ;FIX BIT 8 

8048 0/1000, HOLD RIGHT 

8049 [BR]_[BRX], ; COPY VIRTUAL ADDRESS 

8050 SC_7 ; PREPARE TO SHIFT 9 PLACES 

8051 =0 

8052 PF25: [ BR ]__[ BR ] * . 5 , ; R I GHT ADJUST PAGE ft 

8053 STEP SC, ; COUNT SHIFT STEPS 

8054 J/PF25 ;LOOP FOR 9 

8055 [ BR ]_[ BR ] . AND . # CLR LH, ; MASK TO 9 BITS 

8056 0/777 ; . . 

8057 TL [EBR], ;KI MODE REFILL? 

8058 0/4O ; FLAG BIT 

8059 =0 READ [BRX], ;USER REF? (KL MODE) 

8060 SKIP DPO, ; . . 

8061 J/PF30 ; CONTINUE AT PF30 

8062 [ARX]_[BR]*.5, ;KI10 MODE REFILL 

8063 J/KIFILL ; GO HANDLE EASY CASE 
8064 



KS10.MC~i [4,31 1 ] MICRO 31(254) 

PAGEF.MIC[4,31 1 ] 13:06 15-JULY-1981 



U 2542, 2546,3771,0004,7274,4007,0622,0000,0000,0423 

U 2543, 2544,3771,0004,7274,4007,0622,0000,0000,0424 

U 2544 , 1 1 30 , 1 1 3 , 0405 ,4174, 4007 , 0700 , 0200', 0024 ,1016 

U 2545, 3736,0551,1103,4374,4007,0701,0000,0000,0540 

U 2546, 1 130,01 13,0405,4174,4007,0700,0200,0024, 1016 

U 2547, 3736,0551 , 1003,4374,4007,0701 ,0000,0000,0540 

U 3736, 3737,3443,0300,4174,4007,0700,0200,0024, 1016 

U 3737 , 1 000 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1000, 3770,4443,0000,4174,4007,0700,2010,0071,0007 

U 1001, 2554,4553,0300,4374,4007,0321,0000,0000,0077 

U 1002, 2552,0551,0303,7274,4007,0701,0000,0000,0215 

U 1003, 3773,0551,0303,7274,4007,0701,0010,0000,0215 

U 1007, 2550,4553,0300,4374,4007,0321,0000,0000,0077 

U 2550, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 

U 2551, 0602,3445,0303,4174,4007,0630,2000,0060,0000 



U 0602, 0602,3445,0303,4174,4007,0630,2000,0060,0000 
U 0603, 3773,4443,0000,4174,4007,0700,0010,0000,0000 
U 0607 , 1000 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
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8065 ; HERE IN TOPS-20 MODE 

8066 ;PICK UP CORRECT SECTION POINTER 

8067 =0 

8068 PF30: [ ARX ]_W0RK [ PTA . E ] , ; EXEC MODE 

8069 SKIP AD.EO.O, 4T , ;SEE IF VALID 

8070 J/PF35 -.CONTINUE BELOW 

8071 [ARX]_W0RK[PTA.U] , ;USER MODE 

8072 SKIP AD.EO.O, 4T ;SEE IF VALID 

8073 =0 VMA_[ARX]+[BR] , ;POINTER VALID 

8074 VMA PHYSICAL READ, ; START MEMORY • 

8075 J/PF77 ;CONTINUE BELOW 

8076 [AR]_[UBR]+#, 3T , ;USER MODE 

8077 #/540, ; OFFSET TO UPT 

8078 J/PF40 ;G0 GET POINTER 
8079 

8080 =0 

8081 PF35: VMA_[ ARX ] + [ BR ] , ;P0INTER VALID 
8t>82 VMA PHYSICAL READ, ; START MEMORY 

8083 J/PF77 ;CONTINUE BELOW 

8084 [AR]_[EBR]+#, 3T , ; EXEC MODE 

8085 #/540 ; OFFSET TO EPT 

8086 PF40: VMA_[AR], ; LOAD THE VMA 

8087 START READ, ; START THE MEMORY CRANKING 

8088 VMA PHYSICAL ; ABSOLUTE ADDRESS 

8089 MEM READ, ;WAIT FOR MEMORY 

8090 [AR]_MEM ; POINT POINTER IN AR 

8091 ;LOOK AT SECTION POINTER AND DISPATCH ON TYPE 

8092 =000 

8093 PF45: SC_7 , ; FETCH SECTION O POINTER 

8094 CALL [SETPTR] ; FIGURE OUT POINTER TYPE 

8095 SECIMM: TL [AR], ; IMMEDIATE POINTER 

8096 #/77, ; TEST FOR 12-17 = O 

8097 J/PF50 ; CONTINUE AT PF50 

8098 [AR]_[AR]+WORK[SBR] , ; SHARED SECTION 

8099 d/SECSHR ; GO FETCH POINTER FROM SPT 

8100 [AR]_[AR]+WORK[SBR] , ; INDIRECT SECTION POINTER 

8101 CALL [RDPT] ; GO FETCH SPT ENTRY 

8102 =111 TL [AR], ;12 TO 17 = 0? 

8103 #/77 ; .. 

8104 = 

8105 =0 PAGE FAIL TRAP ; NO 

8106 [AR]_[AR]*2, ;FIRST SHIFT 

8107 STEP SC ;SC WAS LOADED AT PF45 

8108 =0*0 

8109 PF60: [ AR ]_.[ AR ] *2 , -.CONVERT TO ADDRESS OF . 

8110 STEP SC, ; SECTION TABLE 

8111 J/PF60 

8112 CALL [RDPT] ; READ SECTION TABLE 

8113 =1*1 J/PF45 ; TRY AGAIN 



8114 = 
8115 



KS10.MC1[4,31 1 ] 
PAGEF.MIC[4,31 1 ] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 2552 , 3773 , 4443 , 0000 , 4 1 74 , 4007 ,0700 , 00 10 , 0000 , 0000 
U 2556 , 2554 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0077 



U 2554, 2670,4553,1300,4374,4007,0321,0000,0001,0000 

U 2555, 2560,4251,0304,4374,4007,0700,0000,0000,3777 

U 2560 , 2620 , 344 1 , 0403 ,4174, 4007 , 0700 , 00 1 O ,0000 , 0000 

U 2562, 2553,3551,0303,7274,4007,0701,0000,0000,0220 



U 2553 , 3076 , 4443 , 0000 ,4174, 4007 , 0700 , 02 10 , 000 1 , 0002 
U 2557 , 2564 , 4443 , 0000 ,4174, 4007 ,0700 , 2000 , 007 1 , 0007 



U 2564 , 2564 , 3445 , 0404 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
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81 16 
8117 
8118 
8119 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 



; HERE FOR SHARED. SECTION. 
=0** 

SECSHR: CALL [RDPT] 

TL [AR], #/77 



AR GETS THE ADDRESS OF PAGE TABLE 

; READ WORD FROM SPT 

; TEST FOR BITS 12-17 = O 



; HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON 

; BITS 12 THRU 17 EQUAL TO ZERO 

=0 

PF50: PAGE FAIL TRAP 

[ARX]_[AR] .AND.# CLR LH 
^/3777 
[AR]_[ARX] , 
CALL [UPCST] 
[ AR ]_[ AR 3 .OR. WORK [PUR ] 



=0* 
PF70 
=0** 



=0 

PF75: 



START NO TEST WRITE, 

CALL [ IBPX 3 

SC_7 

[ARX3_JARX}*2, 
STEP SC, 
J/PF75 



;BITS 12-17 . NE . O 
; PAGE NUMBER OF PAGE TABLE 
11 BIT PHYSICAL PAGE # 
COPY ADDRESS 
UPDATE CSTO 
PUT IN NEW AGE AND 

USE BITS 
START MEMORY WRITE 
GO STORE IN MEMORY 
THIS CAN BE BUMMED 

CONVERT PAGE NUMBER TO 

PAGE ADDRESS 
LOOP OVER 9 STEPS 



KS10.Mdl4.311] 
PAGEF.MIC[4,31 1 ] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 2565 , 1 040 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1040, 2640,3771,0003,7274,4007,0622,0010,0000,0423 

U 1041 , 2640,3771 ,0003,7274,4007,0622,0010,0000,0424 

U 1042 , 1047 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 ,0423 

U 1 043 , 1047 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 0424 

U 1047, 1 130,01 13,0405,4174,4007,0700,0200,0024, 1016 

U 1 1 30 , 3770 , 377 1 , 0003 , 4365 , 5007 ,0700 , 02 1 O , 0000 , 0002 

U 1131, 1 134,4553,0300,4374,4007,0321 ,0000,0000,0077 

U 1 132, 2572,0551 ,0303,7274,4007,0701 ,0000,0000,0215 
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8139 ;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY . GO 

8140 ; READ IT AND START ANALYSIS 
8141 

8142 ;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE 

8143 ; ADDRESS OF THE PAGE TABLE IN PTA . E OR PTA . U SO THAT WE DO NOT 
8 144 ; HAVE TO, DO THE SECTION LOOKUP EVERY TIME. 



8145 READ [BRX] , SKIP DPO ;USER OR EXEC REF? 

8146 =000 [ AR ]_WORK[ PTA . E ] , ; EXEC MODE 

8147 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

8148 CALL [ SHDREM ] ; SHOULD WE REMEMBER PTR 

8149 [AR]_WORK[PTA.U] , ;USER MODE 

8150 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

8151 CALL [SHDREM] ; SHOULD WE REMEMBER PTR 

8152 WORK[PTA. E]_[ARX] , ; SAVE FOR EXEC 

8153 J/PF76 ;CONTINUE BELOW 

8154 WORK[PTA.U]_[ARX] , ; SAVE FOR USER 

8155 J/PF76 ;CONTINUE BELOW 

8156 =111 

8157 PF76: VMA_[ ARX ] + [ BR ] , ; READ PAGE POINTER 

8158 START READ. 

8159 VMA PHYSICAL 

8160 = 

8161 =00 

8162 PF77: MEM READ, ; START ANALYSIS OF POINTER 

8163 * [ AR ]_MEM, 

8164 CALL [ SETPTR ] 

8165 PTR I MM : TL [AR], ; IMMEDIATE POINTER 

8166 #/77, ;CHECK FOR BITS 0-5 

8167 J/PF80 ;G0 TO PF80 

8168 [AR]_[AR]+WORK[SBR] , ; SHARED POINTER 

8169 J/PTRSHR ; GO TO READ SPT 
8170 



; KS10.MC1[4,311] MICRO 31(254) 

; PAGEF.MIC[4,3113 13:06 15-JULY- 1981 



U 1133, 2566 , 3770 , 0305 , 4344 , 4007 , 0670 , 0000 , 0000 , 0000 
U 2566 , 256 1 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0426 

U 2567, 2570,4251,0505,4374,4007,0370,0000,0000,0777 



U 2570 , 1 OOO ,4551, 0303 , 4374 , 0007 , 0700 , 0000 , 0027 , 7000 
U 2571, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2572 , 3773 , 4443 , 0000 ,4174, 4007 , 0700 , 00 10 , OOOO , 0000 

U 2576, 1 134,4553,0300,4374,4007,0321 ,0000,0000,0077 

U 1 134, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 

U 1135, 2620,4251,0304,4374,4007,0700,0010,0000,3777 



U 1137, 3745,3551,0606,4374,0007,0700,0000,0010,0000 
U 3745, 2574,4553,1300,4374,4007,0321,0000,0002,0000 



U 2574 , 3746 ,3551, 0606 , 4374 , 4007 , 0700 , 0000 , 0002 , OOOO 

U 2575, 2600,4553,0600,4374,4007,0321,0000,0003,0000 

U 2600, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 

U 2601 , 2573,3551 ,0303,7274,4007,0701 ,0000,0000,0220 



U 256 1 , 
U 2563, 



3562,3771 ,0003,7274,41 17,0701 ,0010,0000,0301 
1133,3771, 0003 , 7274 , 4007 , 070 1 , OOOO , OOOO , 0426 
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8171 ; INDIRECT POINTER. CHANGE PAGE # AND LOOK FOR PAGE TABLE 

8172 PTRIND: [BR]_[AR] SWAP, ; PUT IN RIGHT HALF 

8173 SKIP/-1 MS ' ;DID CLOCK GO OFF 

8174 =0 W0RK[SV.AR1]_[AR] , ; YES — UPDATE CLOCK 

8175 J/PFTICK ; . . 

8176 [ BR ]__[BR ] . AND . # CLR LH, ; UPDATE PAGE # AND RESTART 

8177 tt/lll, ; MASK FOR PAGE # 

8178 SKIP IRPT ;SEE IF THIS IS A LOOP 

8179 =0 [AR]_[AR] . AND . # , ; CHANGE INDIRECT POINTER 

8180 . #/277000, ; INTO SHARE POINTER 

8181 HOLD RIGHT, ; . . 

8182 U/PF45 ;G0 BACK AND TRY AGAIN 

8183 PAGE FAIL TRAP ;POINTER LOOP 
8184 

8185 =0** 

8186 PTRSHR: CALL [ RDPT ] ; GO LOOK AT POINTER 

8187 TL EAR], ;BITS 12-17 . EQ . 0? 

8188 H/ll 
8189 

8190 ; HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO 

8191 =00 

8192 PF80: PAGE FAIL TRAP ; NO- -TAKE A TRAP 

8193 [ ARX ]_[ AR ] . AND . # CLR LH, ; SAVE PHYSICAL PAGE # 

8194 #/3777, ; MASK TO 13 BITS 

8195 CALL [UPCST] ; UPDATE CSTO 

8196 ; HERE WE HAVE CST ENTRY IN AR, PAGE FAIL WORD IN BRX. GO LOOK 
'8197 ; AT WRITABLE AND WRITTEN BITS 

8198 =11 

8199 PF90: [ BRX ]_[ BRX 3 . OR . # , TRANSLATION IS VALID 

8200 £/ 100000, HOLD RIGHT ; 

8201 TL [FLG3, FLG.W/1 . ; IS THIS PAGE WRITABLE? 

8202 =0 [BRX3.JBRX3 . OR . # , ; YES- - INDICATE THAT IN PFW 

8203 #/020000, 

8204 J/PF100 ;NOT WRITE VIOLATION 

8205 TL [BRX3, ;IS THIS A WRITE REF? 

8206 WRITE TEST/1, WRITE CYCLE/1 

8207 =0 PAGE FAIL TRAP ;WRITE VIOLATION 

8208 PF107: [ AR 3__[ AR 3 . OR . WORK[ PUR 3 , ; PUT IN NEW AGE 

8209 J/PF110 ;G0 TO STORE CST ENTRY 
8210 

8211 =0* 

8212 PFTICK: [ AR3_W0RK[TIME 1 3 , ; UPDATE TIMER 

8213 SPEC/CLRCLK, CALL [ TOCK 3 

8214 [AR3_W0RK[SV. AR1 3 , ; RESTORE AR 

8215 J/PTRIND ; GO TRY AGAIN 
8216 



KS 10. MCI [4,311] 
PAGEF.MIC[4,31 1 ] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 3746, 2602,4553,0600,4374,4007,0321 ,0000,0001 ,0000 

U 2602, 2604,3551,0303,4370,4007,0700,0000,0000,0001 

U 2603 , 2604 , 4553 , 0300 , 4374 , 4007 , 033 1 , 0000 , 0000 , 000 1 

U 2604, 2601,3551,0606,4374,0007,0700,0000,0004,0000 

U 2605, 2601,5551,1313,4374,0007,0700,0000,0002,0000 

U 2573 , 3076 , 4443 , 0000 ,4174, 4007 , 0700 , 02 10 , 000 1 , 0002 

U 2577, 2606,4553, 1300,4374,4007,0331 ,0000,0040,0000 

U 2606, 2610,3441,0403,4174,4007,0700,2000,0071,0007 

U 2607, 3755,3771 , 0003 , 7274 , 4007 , 070 1 , 0000 , 0000 , 02 1 

U 2610, 2610, 3445 , 0303 , 41 74 , 4007 , 0630 , 2000 , 0060 , 0000 



U 2611, 3747,4551,0303,4374,0007,0700,0000,0000,0003 
U 3747, 3750,4221,0013,4170,4007,0700,0000,0000,0000 



U 3750, 3752,3551,0606,4374,0007,0700,0000,0010,0000 

U 3752, 2612,4553,1300,4374,4007,0321,0000,0000,4000 

U 2612, 2613,3551,0606,4374,0007,0700,0000,0000,2000 

U 2613, 3753,4551,0606,4370,4007,0700,0000,0000,0777 

U 3753 , 1 500 ,3111, 0603 , 4 1 74 , 4003 , 7700 , 0200 , 0003 , 000 1 



> 
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8217 ; HERE IF PAGE IS WRITABLE 

8218 PF100: TL [BRX], WRITE CYCLE/1 ;IS THIS A WRITE REF? 

8219 =0 [ AR ]_[ AR ] . OR . # , ;YES--SET WRITTEN BIT 

8220 #/1, 

8221 HOLD LEFT, 

8222 J/PF105* 

8223 TR [AR], ; NOT WRITE, ALREADY WRITTEN? 

8224 #/1 

8225 =0 

8226 PF105: [ BRX ]_[ BRX ] . OR . # , ;WRITTEN SET BIT 

8227 #/040000, ; MARK PAGE AS 

8228 HOLD RIGHT, ; WRITABLE 

8229 J/PF107 ; STORE CST WORD 

8230 [ FLG]_[ FLG] . AND . NOT . # , ; NOT WRITTEN, CAUSE TRAP ON 

8231 FLG.W/1, ; WRITE ATTEMPT 

8232 HOLD RIGHT, ; ONLY CLEAR LH 

8233 J/PF107 

8234 =0** 

8235 PF110: START NO TEST WRITE, 

8236 CALL [IBPX] ; STORE CST ENTRY 

8237 

8238 ; HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS 

8239 ; (IN BRX) RELOAD PAGE TABLE. 

8240 PFDONE: TR [FLG], ;MAP INSTRUCTION? 

8241 #/400000 

8242 =0 [AR]_[ARX], ; GET PHYSCIAL PAGE # 

8243 SC_7, ; PREPARE TO CONVERT TO 

8244 J/PF130 ; WORD ADDRESS 

8245 [ AR ]_WORK [ SV . VMA ] , ; RESTORE VMA 

8246 J/PF120 

8247 =0 

8248 PF130: [AR]_[AR]*2, ;CONVERT TO WORD 

8249 STEP SC, 

8250 J/PF130 

8251 [AR]_[AR] . AND . # , ;JUST ADDRESS BITS 

8252 #/3, 

8253 HOLD RIGHT 

8254 END MAP ; CLEAR MAP FLAGS 

8255 [.BRX]_[BRX] .0R.#, ; TURN ON THE TRANSLATION 

8256 #/100000, ; VALID BIT 

8257 HOLD RIGHT ; IN LEFT HALF ONLY 

8258 TL [FLG], FLG.C/1 ;CACHE BIT SET? 

8259 =0 [BRX]_[BRX] . OR . # , ;YES--SET IN MAP WORD 

8260 #/002000, HOLD RIGHT ; .. 

8261 [ BRX V ]_[BRX ] . AND . # , ; PRESERVE WORD # 

8262 0/777, HOLD LEFT ; IN PAGE FAIL WORD 

8263 [AR]_[AR] .OR. [BRX] , ; COMPLETE MAP INSTRUCTION 

8264 EXIT 
8265 



KS10.MC1 [4,31 1 ] 
PAGEF.MIC[4,31 1 J 



MICRO 31(254) 
13:06 15-JULY-1981 



U 3755 , 3756 , 344 1 , 0305 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 3756 , 3757 , 555 1 , 0305 , 4374 , 0007 , 0700 , 0000 , 0007 , 0000 

U 3757 , 3760 , 3443 , 0500 ,4174, 4007 , 070 1 , 0200 , 0000 , 0030 

U 3760, 3761,4251,0404,4374,4007,0700,0000,0000,3777 

U 3761 , 3762,3551 ,0406,4374,4007,0700,0000,0040,0000 

U 3762, 2614,4553, 1300,4374,4007,0321 ,0000,0002,0000 

U 2614, 2615, 355 1 , 0606 , 4374., 4007 , 0700 , OOOO, 0004 , 0000 

U 2615, 2616, 4553 , 1 300 ,4374,4147, 032 1 , 0000 , 0000 , 4000 



U 26 1 6 , 3763 , 355 1 , 0606 , 4374 , 4007 , 0700 , 0000 , 0002 , 0000 

U 2617, 3763 , 3333 , 0006 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 3763 , 3764 , 377 1 , 0004 , 7274 , 4007 ,070 1 , OOOO , OOOO , 02 1 2 

U 3764, 3765,3771 ,0005,7274,4007,0701 ,0000,0000,0213 

U 3765, 3766,3771,0006,7274,4007,0701,0000,0000,0214 



U 3766 , 3767 , 3443 , 0300 ,4174, 4007 ,070 1 , 0200 , OOOO , 0032 



U 3767, 0000,3771,0003,7274,4004,1701,0000,0000,0211 



U 2620, 3773,0551 ,0303,7274,4007,0701 ,0010,0000,0216 

U 2624 , 2622 , 4553 , 0300 , 4374 , 4007 , 032 1 , OOOO , 0077 , OOOO 

U 2622, 0002,4551,0303,7274,4004,1701,0000,0000,0217 

U 2623, 2670,4553, 1300,4374,4007,0321 , OOOO , 000 1 , OOOO 
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8266 PF120: [BR ]__[ AR ] ;COPY PAGE FAIL WORD 

8267 [BR]_[AR] . AND . NOT . # , ; CLEAR BITS WHICH START A CYCLE 

8268 READ CYCLE/1 , ; . . 

8269 WRITE CYCLE/1 , ; . . 

8270 WRITE TEST/1 , ; . . 

8271 HOLD RIGHT ; OUST DO LEFT HALF 

8272 VMA_[BR], 3T , ; RESTORE VMA 

8273 DP FUNC/1 ; SET USER ACCORDING TO WHAT IT WAS 

8274 [ ARX ]_[ ARX ] . AND . # CLR LH, ;JUST KEEP PAGE # 

8275 #/3777 ; . . 

8276 [BRX]_[ARX] . OR . # , #/400000 ;SET VALID BITS 

8277 TL [ FLG] , FLG.W/1 ; WANT WRITE SET? 

8278 =0 [BRX]_[BRX] .0R.#, #/040000 ;SET WRITE BIT 

8279 TL [FLG], FLG.C/1, ; WANT CACHE SET? 

8280 LOAD PAGE TABLE ; LOAD PAGE TABLE ON NEXT 

8281 ; MICRO INSTRUCTION 

8282 =0 [ BRX ]_[ BRX ] „ OR . # , ; SET CACHE BIT 

8283 #/020000, U/PF125 ; CACHE BIT 

8284 READ [BRX] ; LOAD PAGE TABLE 

8285 PF125: [ ARX ]_WORK [ SV . ARX } 

8286 [BR]_WORK[SV.BR] 

8287 [BRX]_WORK[SV.BRX] 

8288 VMA_[AR], ; MAKE MEM REQUEST 

8289 DP FUNC/1, 3T , ; FROM DATA PATH 

8290 WAIT/1 ;WAIT FOR PREVIOUS CYCLE TO 

8291 ; COMPLETE. (NEED THIS TO 

8292 ; START ANOTHER CYCLE) 

8293 [AR]_WORK[SV. AR] , 

8294 RETURN [0] 

8295 ; SUBROUTINE TO START CST UPDATE 

8296 ; CALL WITH; 

8297 ; AR/ PHYSICAL PAGE NUMBER 

8298 ; RETURN 2 WITH ENTRY IN AR , PAGE FAIL IF AGE TOO SMALL 

8299 =0** 

8300 UPCST: [ AR ]_[ AR ] +WORK [ CBR ] , ; ADDRESS OF CSTO ENTRY 

8301 CALL [RDPT] ; READ OLD VALUE 

8302 TL [AR] , ;0 - 5 = O? 

8303 #/770000 ; . . 

8304 =0 [AR]__[AR] . AND . WORK [ CSTM ] , ; CLEAR AGE FIELD 

8305 RETURN [2] ; AGE IS NOT ZERO 

8306 PAGE FAIL TRAP ; AGE TOO SMALL 
8307 



; KS10.MC1 [4,31 1 ] MICRO 31(254) 

; PAGEF.MIC[4,31 1 ] 13:06 1 5-UULY- 198 1 



U 3770, 3771,3551,0304,4374,4007,0700,0000,0075,3777 
U 3771 , 3772,41 1 1 ,0413,4174,0007,0700,0000,0000,0000 
U 3772 , 2626 , 3333 , 0003 ,4174, 4007 , 0520 , OOOO , OOOO , 0000 



U 2626 , 2630 , 4553 , 0300 , 4374 , 4007 , 032 1 ,0000 , 0030 , OOOO 
U 2627, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2630, 2632,4553,0300,4374,4007,0321,0000,0010,0000 
U 2631 , 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 



U 2632 , 2634 , 4553 , 0300 , 4374 , 4007 , 032 1 , OOOO , 0020 , OOOO 
U 2633, 0002,4443,0000,4174,4004,1700,0000,0000,0000 



U 2634, 
U 2635, 



0003 , 4443 , OOOO ,4174, 4004 , 1 700 , OOOO , OOOO , OOOO 
0001 , 4443 , OOOO , 4 1 74 , 4004 , 1 700 , OOOO , OOOO , OOOO 
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8308 

8309 

8310 

831 1 

8312 

8313 

8314 , 

8315 

8316 

8317 

8318 

8319 

8320 

8321 

8322 

8323 

8324 

8325 

8326 

8327 

8328 

8329 

8330 

8331 

8332 

8333 

8334 

8335 

8336 

8337 

8338 

8339 



SUBROUTINE TO LOOK AT PAGE POINTER 

CALL WITH POINTER IN AR 

RETURNS 1 IF TYPE 1 

RETURNS 2 IF TYPE 2 

RETURNS 3 IF TYPE 3 
GOES TO 
SETPTR 



=0 

STPTR1 : 



=0 

STPTR2 : 



=0 

STPTR3 : 



PFT IF TYPE O OR 4 THRU 
[ARX]_[AR] .OR. #, 

#/753777 

[ FLG ]_[ FLG ] .AND. [ARX] , 

HOLD RIGHT 

READ [AR], 

SKIP DPO 

TL [AR], 

#/ 300000, 

J/STPTR1 

PAGE FAIL TRAP 

TL [AR], 

#/ 100000, 

U/STPTR2 

PAGE FAIL TRAP 



TL [AR], 
#/ 200000, 
J/STPTR3 
RETURN [2] 



7 

AND 
OF 



C AND W BITS 
ALL POINTERS 



KEEP IN LH OF FLG 
TYPE 4,5,6 OR 7? 

HERE WE TEST FOR TYPE 

ZERO POINTER 
CHECK AT STPTR1 
BAD TYPE 

NOT ZERO 
SEPERATE TYPE 2 

TYPE 



SEPERATE TYPE 1 
AND 3 



RETURN 
RETURN 



[3] 
[1] 



TYPE 2 



; TYPE 3 
; TYPE 1 



KS10.MC1[4 f 31 1 ] 

PAGEF.MIC[4,311] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 3773, 2636,3443,0300,4174,4007,0370,0200,0024, 1016 

U 2636, 0004,3771,0003,4365,5004,1700,0200,0000,0002 
U 2637, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2640, 0007,4443,0000,4174,4004,1700,0000,0000,0000 

U 264 1 , 3774 , 744 1 , 1 303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3774 , 2642 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0002 , 4000 

U 2642, 0007,4443,0000,4174,4004,1700,0000,0000,0000 

U 2643, 0002,4443,0000,4174,4004,1700,0000,0000,0000 



KS10 MICROCODE V123, 1 MARCH, 1982 SEAN KEENAN , DON D0S5A Page 232 
PAGE FAIL REFIL LOGIC 



8340 
8341 
8342 
8343 
.8344 
8345 
8346 
8347 
8348 
8349 
8350 
8351 
8352 
8353 
8354 
8355 
8356 
8357 
8358 
8359 
8360 
8361 
8362 
8363 
8364 



SUBROUTINE TO FETCH A PAGE POINTER OR CST ENTRY 
CALL WITH ADDRESS IN AR 
RETURN 4 WITH WORD IN AR 



RDPT: 



=0 



VMA_[ AR ] , 
START READ, 
VMA PHYSICAL, 
SKIP IRPT 
MEM READ, 
[ AR ]_MEM , 
RETURN [4] 
PAGE FAIL TRAP 



LOAD THE VMA 
START MEM CYCLE 
ABSOLUTE ADDRESS 
CHECK FOR INTERRUPTS 
NO INTERRUPTS 
PUT THE DATA INTO AR 
AND RETURN 
INTERRUPT 



SUBROUTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR 
CALL WITH SKIP ON ADR.EQ.O 

RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT 



=0 

SHDREM: 



RETURN [7] ; INDIRECT PTR 

[ AR ]_. NOT . [ FLG] ;FLIP BITS 

TL EAR], FLG.W/1, FLG.C/1 ; BOTH BITS SET 

RETURN [73 ;NO--DON'T STORE 

RETURN [2] ; STORE 



KS10.MC1[4,311] 
PAGEF.MIC[4,31 1 ] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 3775, 2644,3333,0006,4174,4007,0520,0000,0000,0000 

U 2644, 2646, 1553,0500,4374,4007,0532,4000,0000,0340 

U 2645, 3776,0111,1104,4174,4007,0700,0200,0024,1016 

U 2646 , 2650 , 1 553 , 0500 , 4374 , 4007 , 0532 , 4000 , 0000 , 0400 

U 2647, 2650,0551 ,0404,4374,4007,0701 ,0000,0000,0600 

U 2650, 3776,01 1 1 , 1004,4174,4007,0700,0200,0024, 1016 

U 2651 , 2645,0551 ,0404,4374,4007,0701 ,0000,0000,0220 

U 3776 , 1435,3771, 0004 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1435, 2652,4553,0500,4374,4007,0331,0000,0000,0001 
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8365 
8366 
8367 
8368 
8369 
8370 
8371 
8372 
8373 
8374 
8375 
8376 
8377 
8378 
8379 
8380 
8381 
8382 
8383 
8384 
8385 
8386 
8387- 
8388 
8389 
8390 
8391 
8392 
8393 
8394 
8395 
8396 
8397 
8398 
8399 
8400 
8401 



; HERE IN KI 10 MODE 

; BR CONTAINS PAGE AND ARX CONTAINS PAGE ff/2 



KIFILL : 



KIUPT: 



=0 

KIF10: 



=0 

KIEPT ; 



KIF30: 



READ [BRX], 
SKIP DPO 
[BR]-#, 
#/340, 

SKIP DP18, 4T, 
J/KIF10 

[ARX]_[ARX]+[UBR] , 
LOAD VMA, 
VMA PHYSICAL, 
START READ, 
J/KIF30 

[BR]-#, 

#/400, 

SKIP DP18, 4T, 
J/KIEPT 

[ARXj_[ARX]+#, 3T, 

#/600, 

J/KIEPT 



[ARX]_[ARX]+[EBR] , 

LOAD VMA , 

START READ, 

VMA PHYSICAL, 

J/KIF30 

[ARX]_[ARX]+#, 

#/220, 3T, 

J/KIUPT 

MEM READ, 

[ARX]__MEM 

TR [BR], 

*/1 



USER REF? 

EXEC- -LESS THAN 340? 



FOLLOW EXEC PATH 

POINTER TO PAGE MAP ENTRY 

PUT ADDRESS IN VMA 

ABSOLUTE ADDRESS 

FETCH UPT WORD 

JOIN COMMON CODE 

EXEC ADDRESS .GE. 340 
SEE IF . GT . 400 

LOOK AT KIF20 

EXEC ADDRESS . LT . 340 

IN EBR+600 

JOIN COMMON CODE 



ADD OFFSET TO 

EPT 
START FETCH 
ABSOLUTE ADDRESS 
GO GET POINTER 
PER PROCESS PAGE 

IS IN UPT + 400 
JOIN COMMON CODE 
WAIT FOR DATA 
PLACE IT IN ARX 
SEE IF EVEN OR ODD 



KS10.MC1 [4,311] 
PAGEF.MIC[4,311] 



MICRO 31(254) 
13:06 15- JULY- 1981 



U 2652, 2654,3333,0004,4174,4007,0530,0000,0000,0000 
U 2653, 2652,3770,0404,4344,4007,0700,0000,0000,0000 



U 2654, 2670,4553, 1300 , 4374 , 4007 , 032 1 , 0000 , 0001 ,0000 

\ 

U 2655, 1500,5551 , 1313,4374,4007,0700,0000,0002,4000 
U 1500, 2656,4553,0400,4374,4007,0331,0000,0002,0000 

U 2656, 2657,3551,1313,4374,0007,0700,0000,0000,4000 
U 2657 , 2660 , 4553 , 0400 , 4374 , 4007 ,033 1 , OOOO , 0004 , 0000 



U 2660, 2661 , 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0002 , OOOO 
U 2661, 2662,4553,0400,4374,4007,0331,0000,0010,0000 



U 2662, 1501 ,3551 , 1313,4374,0007,0700,0000,0002,0000 

U 2663, 2664,4553,0600,4374,4007,0321 ,0000,0001 ,0000 

U 2664 , 2654 , 3551 , 0606 , 4374 , 0007 , 0700 , OOOO , 00 10 , OOOO 

U 2665 , 2577 , 4443 , OOOO ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 



U 1501 , 2577,3551 ,0606,4374,4007,0700,0000,0004,0000 
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8402 =0 

8403 KIF40: READ [ARX], ; ODD 

8404 SKIP DP18, ;SEE IF VALID 

8405 J/KIF50 ;JOIN COMMON CODE 

8406 [ARX]_[ARX3 SWAP , ;EVEN--FLIP AROUND 

8407 J/KIF40 ; AND CONTINUE 
8408 

8409 =0 

8410 KIF50: PAGE FAIL TRAP 

8411 ; AT THIS POINT WE HAVE THE PAGE MAP ENTRY IN RH OF AR 

8412 [FLG]_[FLG] . AND . NOT . # , ; CLEAR W AND C 

8413 FLG.W/1, FLG.C/1 ; FLAGS 

8414 TR [ARX], #/020000 ;CACHE ENABLED? 

8415 =0 [ FLG]_[ FLG] . OR . # , ; SET CACHE BITS 

8416 FLG.C/1, HOLD RIGHT ; .. 

8417 TR [ARX], #/040000 ; DO NOT CACHE 

8418 ;SEE IF CACHE BIT SET 

8419 =0 [BRX ]_[BRX] . OR . # , ; COPY BITS TO BRX 

8420 #/020000, 

8421 HOLD RIGHT 

8422 TR [ARX] , ; . . 

8423 #/ 100000 

8424 =0 [ FLG*]__[ FLG ] . OR . # , ; SAVE W 

8425 FLG.W/1, ; 

8426 HOLD RIGHT, ; . . 

8427 J/KIF90 ; ALL DONE 

8428 TL [BRX], ;W=0, WRITE REF? 

8429 WRITE CYCLE/1 

8430 =0 

8431 KIF80: [ BRX ]_[ BRX ] . OR . # , ;WRITE FAILURE 

8432 #/lOOOOO, HOLD RIGHT, ; INDICATE THAT ACCESS WAS ON 

8433 U/KIF50 ; GO PAGE FAIL 

8434 U/PFDONE ; ALL DONE 
8435 

8436 KIF90: [ BRX ]_[ BRX ] . OR . # , ; PAGE IS WRITABLE 

8437 #/400Q0, ; TURN ON IN BRX 

8438 J/PFDONE ; ALL SET 
8439 



KS10.MC f[4,31 1 ] 
PAGEF .MIC[4, 31 1 J 



MICRO 31(254) 
13:06 15-JULY-1981 



U 1 502 , 2666 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 2666, 151 1 ,3771 ,0005,4354,4007,0700,0010,0000,0000 

U 2667, 1503,4551 ,0505,4374,0007,0700,0000,0040, 1237 

U 1503, 2654,31 1 1 ,0506,4174,4007,0700,0000,0000,0000 

U 1 507 , 1 1 40 , 4443 , 0000 ,4174, 4007 , 0370 , 0000 , 0000 , 0000 

U 1140, 3562,3771,0003,7274,4117,0701,0010,0000,0301 

U 1 141 , 2671 ,4443,0000,4174,4007,0700,0000,0000,0000 

U 1 142, 1510,4223,0000,4364,4277,0700,0200,0000,0010 

U 1510, 3763,3771,0003,7274,4007,0701,0000,0000,0210 

U 1511, 0001,4223,0000,4364,4274,1700,0200,0000,0010 
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8440 


; HERE 


ON HARD PAGE FAILURE 


844 1 


HARD : 


WORK[SV.BR] [BR] 


8442 


=0 


[BR] VMA, _ 


8443 




CALL~[ ABORT ] 


8444 




[BR] [BR]. AND. #, 


8445 




#/401237 , 


8446 




HOLD RIGHT 


8447 




[BRX] [BRX] . OR . [BR 


8448 




J/KI F50 


8449 






8450 


PFP1 1 


SKIP IRPT 


845 1 


=00 




8452 




[ AR ] WORK [ TIME 1 ] , 


8453 




SPEC/CLRCLK , 


8454 




CALL TTOCKl 

v-/ M i— i— l ' w w r\ j 


8455 




J/PFT -j 


8456 




ABORT MEM CYCLE 


8457 






8458 


PFPI2 


[AR] W0RK[5V. VMA] , 


8459 




J/PF125 


8460 






8461 






8462 


ABORT 


ABORT MEM CYCLE, R 


8463 







s 

;SAVE BR (CLEANUP MAY NEED IT) 
;BUILD PAGE FAIL WORD 
; CLEAR ERROR 
;5AVE THE FLAGS 



], -COMPLETE PAGE FAIL WORD 

;G0 TRAP 

; TIMER TRAP? 

; YES- -GET LOW WORD 
; CLEAR CLOCK FLAG 
;D0 THE UPDATE 
; EXTERNAL INTERRUPT 
; CLEAR 1MS FLAGS 

; RESTORE VMA 



ETURN [1] 



; KS10.MC1[4,31 1 ] MICRO 31(254) 

; PAGEF.MIC[4,311] 13:06 15-JULY-1981 



U 2670, 0104,4751,1217,4374,4007,0700,0000,0000,0100 

U 2671, 2672,3771,0003,7274,4007,0611,0000,0000,0210 

U 2672 , 2674 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 00 1 O , 0000 

U 2673, 1512,3771 , 0003 , 7274 , 4007 , 0701 , 0000, 0000 , 0425 

U 1512, 2676,3333,0003,4174,4467,0700,0000,0000,0004 

U 2674 , 1 1 00 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 

U 2675, 2676,1111,0701,4170,4007,0700,4000,0000,0000 

U 2676, 1 100,3333,0013,4174,4003,5701 ,0000,0000,0000 



U 1 100, 2700,4221 ,0013,4170,4007,0370,0000,0000,0000 

U 1101, 3170,3771,0003,7274,4007,0701,0000,0000,0212 

U 1 102, 1563,01 1 1 ,0701 ,4174,4007,0700,0000,0000,0000 

U 1103, 3464,3771,0013,4370,4007,0700,0000,0000,0011 

U 1 104, 3464,3771 ,0013,4370,4007,0700,0000,0000,0012 

U 1105, 2312,3771,0013,4370,4007,0700,0000,0000,0003 

U 1 106, 3473,3771 ,0013,4370,4007,0700,0000,0000,0012 

U 1 107, 3470,3771 ,0013,4370,4007,0700,0000,0000,001 1 

U 1 1 10, 3462,3771 ,0013,4370,4007,0700,0000,0000,001 1 

U 1111, 2310,4221 ,0013,4170,4007,0700,0000,0000,0000 

U 1112, 2312,4221,0013,4170,4007,0700,0000,0000,0000 

U 1113, 2312, 3771 ,0013,4370,4007,0700,0000,0000,001 1 
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8464 


; HERE ON PAGE FAIL TRAP 






8465 


=0 








8466 


PFT: 


HALT [IOPF] 


;I0 PAGE FAILURE 


8467 


PFT1 : 


[AR] WORK [ SV . VMA ] , 






8468 




SKIP/TRAP CYCLE 


;SEE 


IF TRAP CYCLE 


8469 


=0 


TL [AR], FETCH/1, 


;IS THIS AN INSTRUCTION FETCH 


8470 




J/PFT1A 


;G0 LOOK BELOW 


8471 




[AR] WORK[TRAPPC] 


; RESTORE PC 


8472 




READ [AR], LOAD FLAGS, 


J/CLDISP 


8473 


=0 








8474 


PFT 1 A : 


J/CLEANED 


; YES- 


-NO PC TO BACK UP 


8475 


FIXPC: 


[PC]_jPC]-f , HOLD LEFT 


; DATA 


FAI LURE - -BACKUP PC 


8476 


=0 








8477 


CLDISP : 


CLEANUP DISP 


;G0 CLEANUP AFTER PAGE FAIL 


8478 


=0000 








8479 


CLEANUP 








8480 


CLEANED 




;(0) 


NORMAL CASE 


8481 




END STATE, SKIP IRPT, 


;N0 MORE CLEANUP NEEDED 


8482 




J/PFT2 


-HANDLE PAGE FAIL OR INTERRUPT 


8483 




[AR] WORK[ SV . ARX ] , 


;(D 


BLT 


8484 




J/BLT-CLEANUP 






8485 




[PC] [PC]+1, 


;(2) 


MAP 


8486 




J/MAPDON 






8487 




STATE [EDIT-SRC], 


;(3) 


SRC IN STRING MOVE 


8488 




J/STRPF 






8489 




STATE [EDIT-DST], 


;(4) 


DST IN STRING MOVE 


8490 




J/STRPF 






849 1 




STATE [SRC], 


;(5) 


SRC+DST IN STRING MOVE 


8492 




J/BACKD 






8493 




STATE [EDIT-DST] , 


;(6) 


FILL IN MOVSRJ 


8494 




J/STRPF4 






8495 




STATE [EDIT-SRC], 


;(7) 


DEC TO BIN 


8496 




J/PFDBIN 






8497 




STATE [EDIT-SRC], 


;(10) 


SRC+DST IN COMP 


8498 




J/CMSDST 






8499 




END STATE, J/BACKS 


;(n) 


EDIT SRC FAIL 


8500 




END STATE, J/BACKD 


;(12) 


EDIT DST FAIL 


8501 




STATE [EDIT-SRC], 


;(13) 


SRC+DST IN EDIT 


8502 




J/BACKD 






8503 










8504 











KS10.MC1[4,311] MICRO 31(254) 

PAGEF.MIC[4,31 1 ] 13:06 15-JULY-1981 



U 2700, 1513,0551 , 1 103,4374,4007,0701 ,0000,0000,0500 
U 2701, 0770,3551,1313,4374,0007,0700,0000,0001,0000 

U 1513, 2702,3443,0300,4174,4007,0700,0200,0021 ,1016 



U 2702 , 1 572 , 3333 , 0006 ,4175, 5007 , 070 1 , 02 10 , 0000 , 0002 

U 2703, 2704,4553,1000,4374,4007,0321,0000,0040,0000 

U 2704, 2710,4521,1205,4074,4007,0700,0000,0000,0000 

U 27Q5 , 1 562 , 374 1 , 1 05 , 4074 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1562, 1 564 , 3333 , o6o5 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



U 1563, 2706,4221,0013,4170,4007,0370,0000,0000,0000 

U 2706 , 1 500 , 344 1 , 0603 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 
U 2707 , 270 1 , 1 1 1 1 , 070 1,4174, 4007 , 0700 , 4000 , 0000 , 0000 
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8505 


=0 






8506 


PFT2 : 


[ AR ]_[UBR ]+# , 


; PREPARE TO STORE PFW 


8507 




#/500, 3T , 




8508 




J/PFT 10 




8509 


PFT3 : 


TAKE INTERRUPT 


; PROCESS INTERRUPT 


85 10 


P F T 1 : 


VMA_[ AR ] , 


;WHERE TO STORE PFW 


85 1 1 




VMA PHYSICAL WRITE 




85 1 2 


=0 


MEM WRITE, 


; STORE PFW 


85 1 3 




MEM__[BRX] , 




85 14 




CALL [NEXTAR] 


; ADVANCE POINTER TO 


85 1 5 






; PREPARE TO STORE PC 


85 1 6 




TL [EBR], #/400000 


;KL PAGING? 


85 1 7 


=0 


[BR ]_FLAGS , J/EAPF 


;YES--DO EXTENDED THING 


85 18 




[BR]_PC WITH FLAGS 


; GET OLD PC 


85 19 




MEM WRITE, 


; STORE OLD PC 


8520 




MEM_[ BR ] , 




8521 




J/EAPF 1 




8522 








8523 


MAPDON: 


END STATE, 


; CLEAR MAP BIT 


8524 




SKIP IRPT 


; ANY INTERRUPT? 


8525 


=0 


[AR] [BRX], 


; RETURN PAGE FAIL WORD 


8526 




EXIT 




8527 




[PC] [PC]-1, J/PFT3 


; INTERRUPTED OUT OF MAP 


8528 






; RETRY INSTRUCTION 


8529 









KS10.MC1 [4,31 1 ] 
PAGEF.MIC[4,31 1 ] 



MICRO 31(254) 
13:06 15-JULY-1981 



U 27 1 O , 1 572 , 3333 , 0005 ,4175, 5007 , 070 1 , 02 10 , 0000 , 0002 
U 271 1 , 1564,3333,0001 , 4 1 75 , 5007 , 070 1 , 0200 , 0000 , 0002 



U 1564, 2744,0111,0703,4174,4007,0700,0200,0024,1016 
U 1572, 0001,0111,0703,4170,4004,1700,0200,0023,1016 



Number of microwords used: 
D words= 512 

U words= 2023, Highest= 2047 



END 
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8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8538 
8539 
8540 



=0 

EAPF : 



EAPF1 : 



MEM WRITE , MEM_[ BR ] , ; STORE FLAGS 

CALL [NEXTAR] ; STORE PC WORD 

MEM WRITE, MEM_[PC] 
[AR]_[AR]-M , 
VMA PHYSICAL READ, 
J/GOEXEC 



NEXTAR: NEXT [AR] PHYSICAL WRITE, RETURN [1] 



; KS10.MC1 [4,31 1 ] 
(U) A 

AR 



ARX 



BR 



MICRO 


31 (254) 




KS10 
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Zo4U 
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2556 


2557 


2562 


2567 


2572 


2577 




ZDoZ 




0C07 

Zoo / 


2716 


2717 


2726 


2727 


2736 


2737 


2741 


2742 


2749 


2758 




2759 




2768 


2769 


2778 


2779 


2788 


2789 


2808 


2809 


28 1 9 


2820 


2829 




2830 




2839 


2840 


3093 


3094 


3095 


3096 


3097 


3098 


3 109 


3110 


3111 




OHO 

oi i Z 




OIIO 


o A A A 
1 1 4 


OlJO 


O A A C 
OIIO 


3127 


3 1 28 


3 1 29 


3 1 30 


3131 


3132 


3133 




O I OH 




O 1 44 


Q A A R 
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O 4 /1C 
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O 1 4 / 
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4039 


4205 


4206 
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4211 
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ylRP A 
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4 OO O 


R9 A 1 
OZU 1 


cut ex 
jrtl r 1 


1227 


44 


2859 
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ZOO 1 


















U/P T TP 
WK J. I C 


199/1 
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ft 
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9R9/1 
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9R9Q 
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ZOo4 
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Z ODD 




9R7 1 
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ocp -J 
ZOO 1 
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9 7 R 1 
Z / O 1 


9 7 R 9 
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A A A \ II 


1 lo / 


u 
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At + N 


i joy 


u 

ft 


ZUoU 


O O Q 4 

Zuo I 


ZUoo 


2278 


2290 


2396 


2679 


2688 


2929 


2950 


2994 




OUZ4 




OQOO 
0300 


QQQ K 

dy y 


yl r\~7 A 
4U / 4 


4U / O 


4U / O 


4Uoo 


4Uoo 


4uy 


4097 


4 1 09 


4110 




yl -f A A 
4 1 J 1 




/ 4 4 n 
4 i 1 z 


A A A O 
4 MO 


A A A A 

4 114 


4226 


4310 


4332 


4336 


4339 


4353 


4354 


4356 




4359 




4378 


4380 


4382 


4383 


4509 


4510 


4513 


4514 


4515 


4518 


4519 




4oZu 




4oZo 


yl C O 7 

4oZ / 


oo4 


5455 


5508 


5510 


5516 


5575 


5583 


562 1 


5628 




5770 




C770 

O / / o 


C700 
O / OO 


/ y 1 


582 1 


5824 


5837 


5844 


585 1 


586 1 


5899 


5909 




□y zy 




oy 44 


c; q c -4 

oyo 1 


oy / 


KOTO 

oy / o 


6004 


oUU / 


6009 


60 1 6 


60 1 7 


60 1 8 


6020 








DUto 


ftA9 1 


DUO / 


CAOQ 
OVJO Z} 


ftr>ft 7 
ovjo / 


ftrvftQ 

DUD 


CA7A 

OU / u 


ftH7/l 
ou / 4 


CAQ A 

OUo 1 


CAR O 

OUo Z 


ftAP 9. 
OUo O 




6087 




6088 


6095 


6097 


p. A AO 
O 1 U/ 


ft 1 OR 
O I VJo 


6124 


6135 


ft 1 47 
D 1 4 / 


ft 1 Rft 
O 1 OO 


ft 1 ft 9 
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6 1 76 




6 1 78 
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6195 
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/199ft 
4ZZO 
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40 1 y 
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yl RO 7 
40Z / 
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OOOO 
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OOZ 1 
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O 1 Uo 
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O 1 OO 




ft 1 PO 
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R T wn 

D X l vu 
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ft 


OAOA 
ZUOU 


ft aa/1 

DW+ 


CAOC 
OwZ O 


ftm 1 

DUo 1 


cAqq 


CA7A 
OVJ / \J 


ftPiP. 1 
OUo 1 


COQO 
OUo Z 


CAR O 
OUo 


CAP 7 

OUo / 


ftAQR 

ouy O 


BIN1 


1 178 


# 


2081 


2088 


5976 


5978 


6007 


6009 


6016 


6017 


6018 


6020 


6028 




6037 




6067 


6069 


6074 


6088 


6097 














DLEN 


1 174 




5770 


5778 


5791 


5821 


5824 


5851 


5861 


5899 


5909 


5944 


6102 




6147 




6156 


6162 


6173 


6176 


6178 


6195 


6202 


6509 


6510 


6622 


6636 




6655 




6755 


6758 


6763 


















DSTP 


1 175 


# 


5788 


5961 


6356 


6361 


6405 


6629 


6684 


6705 


6749 


6751 




MARK 


1 176 




6325 


6403 





















AC 1 [ 4 , 3 1 1 1 


MICRO 


31(254) 




KS10 


MICROCODE 


V123, 1 


MARCH, 1982 -- 


SEAN KEENAN , DON 


D0S5A 


Page 












Cross 


Reference 


L i st i ng 












SRCLEN 


1172 # 
























SRCP 


1 173 # 


5837 


5844 


5929 


6366 


6657 


6664 


6741 


6743 










482 # 


2062 


2065 


2098 


2109 


2145 


2149 


2152 


2155 


2164 


2167 


2170 




2173 


2227 


2424 


2645 


2647 


2666 


2668 


3487 


3570 


3850 


3883 


3930 




4294 


4305 


5695 


5697 


5699 


5701 


5703 


5705 


5707 


5709 


571 1 


5741 




5970 


6085 


6407 


7046 


7089 


7090 


7091 


7225 


7226 


7227 


7228 


7229 




7230 


7231 


7237 


7266 


7284 


7298 ' 


7376 


7379 


7415 


7426 


7432 


'7449 




7505 


7653 


8013 


8015 


8029 


8466 














A 


511 # 


2057 


2059 


2135 


2139 


2157 


2202 


2214 


2241 


2250 


2292 


2333 




2334 


2337 


2396 


2428 


2679 


2695 


2879 


2891 


2898 


2902 


2912 


2913 




2915 


2917 


2918 


2926 


2945 


2950 


2978 


2979 


2982 


2983 


2984 


2985 




3000 


3003 


3006 


3009 


3013 


3016 


3050 


3051 


3054 


3055 


3207 


3233 




3296 


3336 


3348 


3360 


3361 


3364 


3365 


3432 


3433 


3439 


3459 


3475 




3486 


3501 


3537 


3548 


3560 


3614 


3617 


3619 


3637 


3642 


3715 


3721 




3732 


3737 


3749 


4017 


4019 


4022 


4044 


4045 


4047 


4049 


4067 


4069 




4083 


4085 


4103 


4105 


4117 


4123 


4124 


4126 


4147 


4160 


4215 


4224 




4239 


4245 


4274 


4286 


4288 


4290 


4302 


4314 


4318 


4333 


4337 


4340 




4353 


4359 


4363 


4372 


4392 


4440 


4445 


4446 


4447 


4452 


4453 


4455 




4457 


4528 


4592 


4601 


4606 


4613 


4629 


4652 


4660 


4714 


4790 


4803 




4839 


4858 


4863 


4937 


4940 


4958 


4996 


5009 


5017 


5023 


5071 


5103 




5104 


5105 


5116 


5138 


5139 


5143 


5144 


5163 


5171 


5173 


5178 


5181 




5186 


5219 


5221 


5251 


5253 


5256 


5257 


5263 


5298 


5302 


5304 


5310 




5318 


5320 


5321 


5322 


5340 


5341 


5346 


5373 


5380 


5381 


5385 


5388 




5389 


5396 


5401 


5403 


5415 


5417 


5418 


5419 


5422 


5430 


5433 


5435 




5445 


5447 


5449 


5456 


5460 


5462 


5473 


5479 


5484 


5488 


5489 


5492 




550'4 


5507 


5529 


5539 


5541 


5549 


5550 


5558 


5565 


5568 


5580 


5583 




5597 


5602 


5604 


5625 


5628 


5650 


5658 


5744 


5789 


5809 


5824 


5844 




5855 


5861 


5890 


5901 


5937 


5944 


5978 


6017 


6037 


6039 


6074 


6087 




6088 


6124 


6150 


6156 


6161 


6162 


6169 


6173 


6178 


6200 


6201 


6202 




6236 


6270 


6279 


6282 


6286 


6288 


6326 


6336 


6361 


6368 


6404 


6421 




6446 


6476 


6483 


6494 


6546 


6563 


6569 


6660 


6664 


6683 


6702 


6705 




6709 


671 1 


6743 


6751 


6758 


6759 


6763 


6770 


6825 


6826 


6912 


6942 




6957 


6959 


6969 


6975 


6977 


6984 


6985 


6991 


6992 


6994 


6996 


7094 




7126 


7149 


7167 


7173 


7244 


7251 


7272 


7280 


7299 


7317 


7341 


7354 




7356 


7363 


7388 


7392 


7398 


7420 


7424 


7430 


7464 


7521 


7523 


7529 




7615 


7623 


7650 


7751 


7990 


8049 


8052 


8062 


8086 


8106 


8109 


8127 




8135 


8242 


8248 


8266 


8272 


8288 


8344 


8510 


8525 








A+B 


484 # 


2087 


2091 


2136 


2138 


2183 


2270 


2321 


2324 


2690 


3018 


3245 




3311 


3521 


3539 


3542 


3682 


3687 


3852 


3879 


3885 


3925 


3941 


4095 




4099 


4128 


4184 


4188 


4268 


4364 


4365 


4368 


4378 


4451 


4456 


4482 




4486 


4492 


4635 


5035 


5037 


5042 


5059 


5060 


5117 


5261 


5265 


5344 




5394 


5475 


5766 


5830 


5862 


5867 


5885 


5914 


5915 


6020 


6034 


6045 




6047 


6057 


6125 


6137 


6144 


6164 


6185 


6199 


6254 


6265 


6273 


6317 




6341 


6435 


6457 


6484 


6510 


6662 


6686 


6704 


6746 


6766 


6782 


6790 




7047 


7053 


7076 


7106 


7247 


7282 


7292 


7300 


7519 


7639 


7725 


7732 




7735 


7738 


7741 


7744 


8073 


8081 


8157 


8374 


8389 


8485 


8535 


8539 


A+Q 


483 #. 


4335 


4346 


4367 


5003 


5382 


5390 


5491 


5494 


5647 






A-.25 


495 # 
























A-B-.25 


500 # 


4264 


4320 


4321 


5002 


5014 


5030 


5054 


5175 


5183 


5531 


5778 




5913 


5949 


6168 




















A-D-.25 


496 # 


5998 


6238 


6243 


6291 


8370 


8380 












A-Q- .25 


499 # 
























A . AND . B 


516 # 


4053 


4068 


4285 


4356 


4809 


5326 


5575 


5608 


5610 


5621 


5800 




5946 


6844 


6847 


7159 


7315 


8316 














A . AND . Q 


515 # 


4051 


4292 


4336 


4380 


4382 


4458 


4510 


4515 


4520 


4526 


4527 



KS10.Mci[4,31 1 ] 



A.EQV.B 
A. EOV.O 
A.OR.B 



A.OR.Q 
A.XOR.B 
A.XOR.Q 
B 



B- .25 
B-A-.25 



MICRO 


31 ( 254 ) 




KS 10 


MICROCODE 


V 1 23 , 1 


MARCH, 1982 


SEAN KEENAN, DON 


DOSSA 


Pscje 










Cross 


Reference 


L i s t i ng 












4723 


4801 


4810 


5571 


5606 
















543 ft 
























542 ft 


4029 


4032 


4054 


4055 


41 10 


4112 


4114 


4383 








508 ft 


2814 


3991 


481 1 


4964 


5732 


583 1 


5864 


5903 


606 1 


6492 


6864 


6868 


6875 


• 6906 


6933 


6950 


695 1 


7 1 38 


7 144 


7286 


7382 


7417 


8263 


8447 
























507 ft 


5405 






















535 ft 


5612 


7092 




















534 ft 
























510 ft 


2067 


2075 


2077 


2078 


2081 


2083 


2090 


2092 


2283 


2303 


2402 


2434 


2440 


2445 


2448 


2479 


2498 


2643 


2650 


2657 


2664 


2694 


2975 


2991 


3047 


3192 


3236 


3239 


3242 


3248 


325 1 


3254 


33 1 3 


3467 


3515 


3526 


3566 


3602 


3608 


3647 


3653 


3724 


3854 


3856 


3864 


3868 


3870 


3875 


3897 


3903 


3914 


39 18 


3933 


3940 


402 1 


4 1 66 


4 1 70 


4 192 


4196 


4227 


4233 


4247 


4252 


4254 


4259 


4326 


4328 


4345 


436 1 


4370 


4431 


4438 


4459 


4589 


4598 


4602 


4617 


4620 


4636 


47 17 


4783 


4791 


4799 


4848 


4861 


4881 


4913 


4920 


5102 


5 106 


5189 


5191 


5223 


5227 


5260 


5300 


5319 


5387 


5486 


5495 


5544 


5562 


5600 


5734 


5737 


5750 


5752 


5753 


5783 


5795 


5829 


5845 


5871 


5872 


5873 


5888 


5930 


5933 


5935 


5939 


5952 


5963 


597 1 


5979 


61 10 


6112 


6 1 55 


6 174 


6187 


6191 


6193 


6242 


6249 


6275 


6289 


6294 


6316 


6320 


6372 


6392 


6406 


6458 


6466 


6540 


6561 


6583 


6615 


6665 


6667 


6689 


6729 


6780 


6877 


6879 


6880 


6882 


6885 


6889 


6966 


6967 


7020 


7024 


7028 


7032 


7036 


7050 


7061 


7066 


7082 


7085 


7101 


7105 


7107 


7115 


7116 


7 168 


7 1 80 


7186 


7193 


7418 


7460 


7483 


7489 


7491 


7525 


7527 


763 1 


7638 


7703 


7712 


7718 


7722 


7723 


7724 


7726 


7727 


7728 


7730 


773 1 


7733 


7734 


7736 


7737 


7739 


7740 


7742 


7743 


7745 


7746 


7748 


7986 


7996 


7997 


7999 


8000 


8007 


8017 


8019 


8021 


8023 


8027 


8028 


8059 


8 145 


8 152 


8154 


8174 


8284 


8318 


8368 


8403 


844 1 


8472 


8477 


85 1 3 


8520 


8532 


8534 




494 ft 
























492 ft 


3327 


3434 


3443 


3446 


4174 


4178 


4448 


4479 


5825 


5846 


.5950 


5951 


6062 


6151 


6203 


6240 


6633 


6762 


7058 


7 1 82 


7 1 95 


7442 


8475 


8527 
























514 ft 


2056 


2060 


2085 


2086 


2088 


2 1 26 


2 1 76 


2246 


2260 


2264 


2269 


2273 


2277 


2278 


2290 


2291 


2296 


2301 


2312 


23 1 8 


2476 


2495 


2596 


2598 


2623 


2625 


2628 


2629 


2631 


2634 


2635 


2637 


2652 


2654 


2659 


2661 


2688 


2872 


2889 


2895 


2907 


29 10 


2948 


2994 


2997 


3176 


3181 


3294 


3339 


3342 


3345 


3351 


3354 


3357 


3380 


3456 


3463 


3480 


3495 


3500 


3520 


3524 


3585 


3596 


3624 


3630 


3657 


3666 


3677 


3679 


3713 


3719 


3734 


3735 


3747 


3748 


3752 


3860 


3902 


39 15 


4003 


4018 


4027 


4046 


4050 


4088 


4093 


4108 


4111 


4113 


4115 


42 16 


4225 


4226 


4308 


4437 


4591 


4596 


4610 


4612 


4616 


463 1 


4664 


4690 


469 1 


4692 


4693 


4694 


4710 


4784 


4785 


4786 


4787 


4788 


4836 


4845 


4852 


4866 


4868 


4872 


4876 


4878 


4882 


491 1 


4916 


4939 


4952 


4954 


4994 


4995 


5004 


5008 


5050 


5068 


5069 


5100 


5133 


5 165 


5229 


5307 


5323 


5365 


5375 


5467 


5518 


5653 


5727 


5746 


5755 


5770 


5773 


5787 


5788 


5791 


5813 


5816 


5821 


5837 


5838 


5848 


5858 


5875 


5876 


5877 


5878 


5886 


5892 


5900 


5909 


591 1 


5929 


5931 


5938 


5942 


5955 


5957 


596 1 


5973 


5976 


5985 


6004 


6007 


6009 


6016 


6026 


6067 


6069 


6070 


6075 


6102 


6107 


6108 


6109 


6121 


6130 


6135 
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4810 


4836 
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4995 
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5463 


5475 


5475 


5510 


5533 


5608 


5608 


5610 


5610 


5612 


5612 


5614 


5647 


5789 


5791 


5809 


5840 


5846 
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5877 


5885 
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6034 
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c a /i 7 


bvJDb 


bUb / 


CA7Q 

ou / y 


CAO A 


bUoO 


6088 


6108 


6 1 10 


6 1 20 


6 1 24 


6125 


cine 
O 1 z o 


O ioO 


C4KO 


OA 
b 1 OZ 


d A QO 

1 y 


C 4Q7 

b 1 y / 


6199 


6199 


6201 


6238 


bz4o 


C O R A 

ozoO 




ooy z 


bo / Z 


bO 1 o 


6683 


6686 


6759 


6760 


6779 


6780 


6863 


6865 






7A7Q 

/ u / y 


7 AO O 

/ UoZ 


7 AQ A 

/ uyu 


7 AQ A 

i uy 4 


7096 


7 107 


7243 


7282 


7282 


7292 


70Q0 
/ Zy Z 


*7 A A R 
/ 4 1 O 


7/117 
/ 4 1 / 


7/1 AC 

/ 4Zb 


7 A O O 

/ 4 oZ 


1 400 


75 1 3 


75 1 7 


7529 


763 1 


7C C 

/bob 


7C OQ 

/boy 


77AO 
/ / L/O 




77 1 n 

/ / IV 


77 14 


77 1 7 


77 A P. 
/ / 1 


7722 


7725 


7732 


7735 


77 OQ 
/ / OO 


77/1 A 
/ / 4 1 


1*7 AA 


77RA 

/ / OvJ 


77R9 
/ / o z 


PAAA 


OACO 

OUb Z 


pACP 
OVJOO 


807 1 


8125 


8 1 35 


8152 


O A CZ A 

B1D4 


Q A QO 

1 y 


O Z ' 


zo 


1 




Q O 7 /I 
0/4 


Q O Q A 
ooo4 


8389 


8389 


8394 


8398 


Q A AO 

o4vjo 


Q A AC 

o4Ub 


R 1 1 # 

Oil F 


OAQA 


OO A 
ZZy 1 


OQO 

z zy z 


O O 1 Q 
Z O 1 


O O O 7 
ZoZ / 


2329 


2495 


2498 


28 1 3 


O Q O O 

zy Zo 


OQ/1 R 

zy4D 


OQ7P 


Zy / y 


OQQ 9 

/y oz 


OQ Q O 

zyoo 


OQQ A 

zy o4 


zyop 


2997 


3000 


3003 


3006 


O AAQ 

ouuy 


OA A O 

oU I O 


OA 4 c 

pu 1 b 


OA -1 Q 

OtJ I 


oUOU 


OAC 4 

JUD 1 


OAC /I 

oU04 


QAC C 

0U00 


3 1 78 


3 183 


3 192 


3336 


3339 


3342 


QQ/1 R 


o4o 


00D 1 


OAC/I 

OOD4 


OOR7 
OOO / 


oooU 


3394 


3408 


34 16 


3520 


oozb 


OR O R 
OOOO 


oDoO 


QCQC 

ooyo 


Q CAO 

obUZ 


obUo 


OK OA 

oboU 


OC A 7 

ob4 / 


3653 


3679 


37 13 


37 1 5 


/ 1 y 


3724 


Q700 


07/7 

/ 4 / 


O / 4o 


Q 7 R O 
/ OZ 


0000 

OOO 


O O O K 
OOoO 


3885 


3889 


3894 


3897 


3990 


4069 


4<£ ID 


4ZZ4 


4 Z 


AO A1 
4^4 / 


/I O tr /I 
4Z04 


4zoy 


4264 


4268 


4286 


- 4288 


A OQA 

4zyu 


A O Q Q 

4zyo 




/f TOO 
4oZV 


/I 1 

Hot 1 


/I A O Q 
44oo 


A A AO 
44 4 Z 


A A Ad 
444b 


4447 


459 1 


4596 


46 10 


A C 7 A 

4b / U 


A CQ A 

4byu 


/I CQ A 


Hoy z 


403 


/ICQ/1 

4oy 4 


4 / 1 U 


/I 7 A O 
4 / 1 Z 


47 14 


4849 


4852 


4854 


4858 


486 1 


4o/0 


4oob 


ylQ H Q 

4y IO 


43 ZD 


496 1 


4964 


5003 


5004 


5006 


5009 


50 1 1 


5 100 


R A AO 
O 1 UZ 


R 4 AK 

D 1 Uo 


r ^ i i 

o 1 1 1 


1 1 z 


O 1 1 O 


5163 


5207 


5253 


5266 


5340 


5365 


5368 


5370 


538 1 


545 1 


5489 


5507 


5514 


553 1 


5727 


5732 


5732 


5734 


5740 


R7 /! 1 

D / 4 1 


R7 /I Q 


R 7 /I c 
D / 4o 


cr 7 c a 
O / DU 


/ Z 


c: 7 c 
O / Do 


5755 


5770 


5778 


5788 


5795 


582 1 


OOZy 


Oo4o 


Oo / 1 


Oo / O 


oy 4o 


C AA/1 


6009 


6016 


6017 


6018 


CAO A 

bUzU 


C AO C 

bUzb 


b\Jo 1 


RAOQ 
0U03 


c.r\/i R 


CA/I C 

OU43 


CAC7 

OvjO / 


CAR 7 
QUO / 


6070 


6 149 


6 1 50 


6151 


b 1 1 
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b 1 / 1 


O 1 / H 


R 1 7C 
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O 1 c5 D 


C4QC 
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b 1 y 


6202 


6204 


6220 


6272 


c O 7 

bz / 
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bz / 


bzoo 
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c O /l 
Ooo4 


Pi A AO 
b4Uo 


6405 


6406 


6658 


6701 
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b / 4o 


C7R A 
O / O 1 


/ DD 
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O / / 4 


CO -1 Q 


CO H Q 

00 1 y 


bo z 


CQOC 

boZb 


6843 


6844 


6846 


6847 


C Q R 1 

boo 1 


COCO 

booo 


COCA 


000 1 


C Q C /I 
bo04 


CQC/t 

OC504 


coco 
O0O0 


coco 
bo bo 


6870 


6870 


6879 


6880 


COQO 

booz 


CQQ/1 

boy 4 


CQQC 


boy / 


CQAA 

oyuu 


oyuo 


CQAC 

oyuo 


CQ OA 

by oU 


6938 


6942 


6962 


6963 


CQC R 

bybo 


CQC C 
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OS / O 
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oy / 
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6986 


699 1 
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7006 
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/U 14 
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7089 
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7095 


7 105 


7 1 20 
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7 1 68 


7 1 78 
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7256 


7268 
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7300 


7300 


73 1 2 
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/ 1 / 


700A 
/ 00U 
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/ 000 
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/ 000 
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1 OZ 1 
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7987 


8007 


8017 
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oUz 1 
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OA7 

ovj / 


808 1 


8157 


8 1 72 


8 176 


8266 


8267 


8286 


844 1 


O /t /! O 

o44Z 


O /I A A 

o444 


BD 1 / 


OO 1 


8520 


8532 














D IZ ft 
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ZxJoO 


OAp 7 


OAp 7 


A A 1 7 
4U 1 / 


A A 1 Q 

4u 1 y 


4046 


4047 


4074 


4093 
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5037 


RA/I O 
DU4Z 


R ARQ 


rarq 
DvJDy 


Oloo 


r -i oc 

O 1 OO 


O 1 O / 


K ^ OQ 

1 jy 


c; 1 7 
Ol/o 


5 175 


5 1 76 


5 1 78 


5364 


0400 


Ryl RC 

o4ob 


C/1C7 


C/I7A 
D4 1 U 


R /I 7 "1 


OOvJ4 


DO 1 


C. 7 OA 1 

O / oU 1 


5774 
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CQC A 

oy 1 
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oy / 4 


oy / y 


5986 


606 1 


606 1 


6075 


6 1 02 
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O 104 
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Oil/ 


O 1 zo 


C4QH 
O 1 O 1 


C -1 07 

bio/ 


C 1 O 7 

bio/ 


6141 


6 144 


6 144 


6 1 55 


C A RC 
b 1 DO 


C A 7 O 

b 1 / 


com 
ozuo 


ozo / 


COQ/1 
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COO A 
OO ZU 


boZZ 


C /l 4 C 

b4 1 b 


64 18 


642 1 


6466 


6484 


C A Q A 

b4o4 


C A Q 7 

b4o / 


C/IQO 
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6596 


6600 


6604 


6608 
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bbz4 
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bo / 1 


6873 


6873 


6875 


6875 


6877 


6885 


6887 
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6985 


6992 
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6995 


7091 


7225 
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7230 


723 1 


7296 


7299 


7354 


7445 
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7000 

/ yoo 


7Q /I 
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8009 


8013 


80 1 5 


8027 
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OAQQ 

ovjoo 


QA/1 1 

oU4 1 


OA/1 7 

oU4 / 
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8 145 


8 199 


8202 


8226 


O O R R 
OZOD 


Q O C Q 
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oZb 1 

OC40 


OZ / O 


oZ / 
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Q O O /I 

ozo4 


7 

ozo / 


8368 


84 19 


843 1 


8436 


O A A 7 

o44 / 
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D 1 
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In ft 


OA7A 

ZV / \J 


O O D4 


oyoy 


CQ7 4 

oy / 1 


cq70 

by / z 


7736 












617 # 


z\«/ / 


2075 


2077 


907P 
Zv/ / 


z 


5008 


5033 


5057 


5333 


D*t ZO 


D*+ Z / 


5434 


5573 


5589 


5617 


5637 


5638 


5787 


5813 


5816 


5832 


5838 


5886 


5892 


5900 


5904 


5927 


5931 


5938 


5957 


5985 


6077 


6167 
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6271 


6318 
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6412 


6439 


6543 


7740 


7989 


8034 
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8495 


8497 


8499 


8500 


8501 


8509 


8523 












HR 


60S ff 


2085 


2091 


2091 


2176 


2208 


2223 


2236 


2246 


2270 


2342 


3436 




3445 


3448 


3450 


3451 


3452 


3456 


3467 


3471 


3480 


3485 


3490 


3493 




3495 


3513 


3534 


3547 


3560 


3566 


3570 


3826 


3828 


3830 


3832 


3834 




3836 


3838 


3840 


3846 


3871 


3875 


3914 


3936 


3940 


4501 


6723 


6798 




6806 


6815 


6816 


6817 


6821 


6822 


6823 


6824 


6829 


6830 


6831 


6834 




6835 


6836 


6837 


6838 


6839 


6840 


6841 


7015 


7037 


7076 


7101 


7106 




7132 


7460 


7591 


7593 


7595 


7597 


7599 


7601 


7603 


7605 


7658 


7726 


MAG 


606 ff 


2059 


4126 


4160 


4285 


4333 


4356 


4790 


4795 


4798 


5449 


5539 




5575 


5621 


7723 




















MASK 


616 ft 


2056 


2057 


2058 


3515 


4025 


5800 


7712 


7739 








ONE 


613 ft 


2062 


2081 


2083 


2690 


6168 


7734 












PC 


607 ff 


2123 


2136 


2138 


2183 


2196 


2202 


2926 


3245 


3361 


3364 


3432 




3433 


3434 


3443 


3446 


3459 


3486 


3501 


3524 


3614 


3666 


3725 


3740 




3870 


6062 


6317 


6317 


7272 


7442 


7527 


7724 


8475 


8485 


8485 


8527 




8534 
























PI 


618 ff 


2101 


7130 


7136 


7136 


7138 


7138 


7140 


7142 


7144 


• 7144 


7146 




7146 


7218 


7219 


7220 


7221 


7222 


7223 


7224 


7315 


7316 


7316 


7742 


TO 


620 ff 


3500 


4045 


4053 


4085 


4088 


4095 


4334 


4340 


4344 


4346 


4348 




4353 


4358 


4359 


5375 


5380 


5387 


5388 


5415 


5417 


5418 


5419 


5422 




5430 


5433 


5435 


5462 


5535 


5541 


6166 


6232 


6241 


6242 


7147 


7157 




7158 


7159 


7159 


7289 


7479 


7483 


7489 


7491 


7745 








T1 


621 ff 


2098 


2109 


2126 


2155 


2173 


2424 


3487 


4294 


4305 


4312 


4326 




4328 


4345 


4370 


4452 


5399 


5399 


5424 


5431 


5474 


5486 


5506 


5512 




5522 


5544 


6236 


6249 


7266 


7298 


7638 


7746 


8466 








UBR 


615 ff 


2068 


6923 


6933 


6933 


6945 


6948 


6950 


6950 


6951 


6951 


7737 


XWD1 


619 ff 


2060 


7743 






















1235 ff 


3084 


30S5 


3086 


3087 


3088 


3089 


3093 


3094 


3095 


3096 


3097 




3098 


3100 


3101 


3102 


3103 


3104 


3105 


3106 


3107 


3109 


31 10 


3111 




3112 


3113 


3114 


3115 


3116 


31 18 


31 19 


3120 


3121 


3122 


3123 


3124 




3125 


3127 


3128 


3129 


3130 


3131 


3132 


3133 


3134 


3135 


3136 


3137 




3138 


3139 


3140 


3141 


3142 


3144 


3145 


3146 


3147 


3148 


3149 


3150 




3151 


3257 


3258 


3259 


3260 


3261 


3262 


3263 


3264 


3266 


3267 


3268 




3269 


3270 


3271 


3272 


3273 


3283 


3284 


3285 


3286 


3287 


3288 


3289 




3290 


3300 


3301 


3302 


3303 


3304 


3305 


3306 


3307 


3316 


3317 


3318 




3319 


3320 


3321 


3322 


3323 


3369 


3370 


3371 


3372 


3373 


3374 


3375 




3376 


3383 


3384 


3385 


3386 


3387 


3388 


3389 


3390 


3397 


3398 


3399 




3400 


3401 


3402 


3403 


3404 


341 1 


3412 


3576 


3577 


3578 


3673 


3759 




3760 


3761 


3762 


3763 


3764 


3765 


3766 


3816 


3817 


3818 


3819 


3820 




3821 


5666 


5667 


5668 


5669 


5670 


5671 


5672 


5674 


5675 


5676 


5677 




5679 


5680 


5681 


5682 


5687 


5688 


5689 


5690 


5691 


7322 


7323 


7324 




7325 


7333 


7334 


7335 


7336 


7347 


7348 


7349 


7350 


7534 


7535 


7536 




7538 


7539 


7541 


7542 


7544 


7545 


7546 


7547 


7548 


7549 


7550 


7551 




7553 


7554 


7555 


7556 


7557 


7558 


7559 


7560 


7562 


7563 


7564 


7565 




7566 


7567 


7568 


7569 


7571 


7572 


7573 


7574 


7575 


7576 


7577 


7578 




7580 


7581- 


7582 


7583 


7584 


7585 


7586 


7587 










AC 


1239 ff 


2454 


2455 


2459 


2460 


2464 


2465 


2469 


2470 


2491 


2507 


2508 




2512 


2513 


2517 


2518 


2522 


2523 


2527 


2528 


2532 


2533 


2537 


2538 




2542 


2543 


2549 


2550 


2554 


2555 


2559 


2560 


2564 


2565 


2569 


2570 




2574 


2575 


2579 


2580 


2584 


2585 


2674 


2704 


2705 


2714 


2715 


2724 




2725 


2734 


2735 


2739 


2740 


2756 


2757 


2766 


2767 


2776 


2777 


2786 




2787 


2796 


2797 


2806 


2807 


2817 


2818 


2827 


2828 


2837 


2838 


2847 




2848 


3949 


3950 


3963 


3964 


4011 ■ 


4012 


4581 


7976 








BOTH 


1241 ff 


2707 


2717 


2727 


2737 


2742 


2759 


2769 


2779 


2789 


2799 


2809 




2820 


2830 


2840 


2850 


3952 


3966 


4014 
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(U) 



DBLAC 


1237 # 
5440 


2673 
5501 


3978 


3979 


4036 


4037 


4062 


4203 


4204 


4208 


4209 


4280 


DBLB 


1238 # 


4039 


4206 


42 1 1 


















MEM 


1240 # 


2456 


, 2461 


2466 


2471 


2509 


25 14 


2519 


2524 


2529 


2534 


2539 




2544 


2551 


2556 


256 1 


2566 


257 1 


2576 


258 1 


2586 


2706 


27 16 


2726 




2736 


274 1 


275 1 


2752 


2758 


2768 


2778 


2788 


2798 


2808 


28 19 


2829 




2839 


2849 


3951 


3965 


4013 


4038 


4205 


4210 


7001 








SELF 


1236 # 


2457 


2462 


2467 


2472 


25 10 


25 1 5 


2520 


2525 


2530 


2535 


2540 




2545 


2552 


2557 


2562 


2567 


2572 


2577 


2582 


2587 








BWRITE 


1 1 06 # 


2476 


2482 


2596 


2598 


263 1 


2637 


2645 


2647 


2666 


2668 


27 1 1 




272 1 


273 1 


2763 


2773 


2793 


2803 


28 1 4 


2824 


2854 


3957 


397 1 


4023 




4029 


4052 


4054 


526 1 


5265 


53 1 1 


5333 


8264 


8526 








BYTE 


765 # 
























BYTE 1 


766 # 
6701 


459 1 
6703 


4596 
6774 


46 10 


463 1 


4784 


5^48 


5858 


6340 


6486 


6658 


666 1 


BYTE2 


767 ft 


4785 






















BYTE3 


768 # 


4786 






















BYTE4 


769 # 


4787 






















BYTE5 


770 # 


2948 


4690 


469 1 


4692 


4693 


4694 


4788 


6470 








CALL 


917 # 


2063 


2089 


2101 


2306 


2678 


2688 


3458 


3497 


3499 


3500 


35 1 4 




3538 


354 1 


3736 


3739 


3853 


3863 


3868 


3872 


3877 


3880 


39 14 


39 1 6 




4020 


4048 


4075 


4084 


4094 


4 104 


4 1 27 


4237 


4258 


43 1 3 


43 1 9 


4333. 




4337 


4343 


4389 


44 1 3 


459 1 


4596 


4600 


4605 


46 10 


46 19 


4622 


4870 




4880 


4914 


494 1 


4999 


5010 


5 140 


5182 


5 185 


5 190 


5 192 


5300 


5302 




5304 


5319 


5320 


532 1 


5380 


5388 


54 16 


5456 


546 1 


5473 


5480 


5487 




5506 


5530 


5534 


5538 


5563 


5566 


5569 


5601 


5603 


5605 


56 1 1 


5729 




5769 


5772 


5776 


5808 


58 14 


5839 


5863 


5874 


5889 


5893 


5900 


59 10 




59 1 2 


59 18 


5932 


594 1 


5962 


5977 


5980 


5993 


6008 


6019 


6027 


6030 




6033 


6036 


6044 


6049 


6076 


6111 


6 1 20 


6 1 36 


6 1 48 


6 1 75 


6 1 86 


6 1 94 




62 1 1 


6237 


6266 


6269 


6274 


6349 


6357 


6367 


6370 


6380 


6393 


6408 




64 15 


6436 


6440 


6508 


6542 


6566 


6666 


6685 


6690 


6742 


6750 


676 1 




6985 


7054 


7078 


708 1 


7 100 


7147 


7 177 


7 190 


7239 


7269 


727 1 


7287 




729 1 


7329 


7340 


7355 


7374 


7383 


74 12 


74 19 


7444 


7632 


7634 


7640 




7656 


7704 


7706 


7723 


7726 


7728 


7730 


7733 


7736 


7739 


7742 


7745 




7747 


8094 


8101 


8112 


8118 


8128 


8 132 


8 148 


8151 


8 164 


8 186 


8 195 




8213 


8236 


8301 


8443 


8454 


8514 


8533 












CHKL 


670 # 


2176 


2246 


2260 


2269 


2273 


2290 


2301 


2312 


2318 


2331 


2402 




2434 


2440 


2445 


2448 


2498 


2694 


2994 


33 1 3 


3456 


3480 


3495 


3520 




3524 


3585 


3602 


3608 


3630 


3647 


3653 


3666 


3724 


3752 


3868 


3870 




3875 


3902 


39 14 


39 18 


3940 


4018 


4111 


4113 


4216 


4226 


4310 


4332 




4339 


4636 


4664 


4670 


479 1 


5050 


5727 


5746 


6 166 


6356 


6406 


6409 




6437 


67 1 3 


6728 


6798 


6915 


7019 


7023 


7027 


7031 


7035 


7075 


7 105 




7 107 


7114 


7 168 


7252 


7294 


74 18 


7465 


75 10 


75 1 3 


75 1 5 


7525 


7527 




76 19 


7638 


7658 


7723 


7724 


7726 


7727 


7730 


773 1 


7733 


7734 


7736 




7737 


7739 


7740 


7742 


7743 


7745 


7746 


7748 


8090 


8 163 


8349 


8398 




8513 


8520 


8532 


8534 


















CHKR 


677 # 


2 176 


2246 


2260 


2269 


2273 


2290 


2301 


2312 


2318 


233 1 


2402 




2434 


2440 


2445 


2448 


2498 


2694 


2994 


3313 


3456 


3480 


3495 


3520 




3524 


3585 


3602 


3608 


3630 


3647 


3653 


3666 


3724 


3752 


3868 


3870 




3875 


3902 


3914 


3918 


3940 


4018 


4111 


4113 


4216 


4226 


4310 


4332 




4339 


4636 


4664 


4670 


4791 


5050 


5727 


5746 


6166 


6356 


6406 


6409 




6437 


6713 


' 6728 


6798 


6915 


7019 


7023 


7027 


7031 


7035 


7075 


7105 




7107 


7114 


7168 


7252 


7294 


7418 


7465 


7510 


7513 


7515 


7525 


7527 




7619 


7638 


7658 


7723 


7724 


7726 


7727 


7730 


7731 


7733 


7734 


7736 




7737 


7739 


7740 


7742 


7743 


7745 


7746 


7748 


8090 


8163 


8349 


8398 
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(U) CLKL 



(U) CLKR 



(U) CLRFPD 
(D) COND FUNC 



(U) CRY38 



(U) DBM 



APR FLAGS 

BYTES 

DP 



8513- 


8520 


8532 


8534 


















666 # 


2136 


2138 


2183 


2196 


2197 


2203 


2208 


2223 


2224 


2236 


2247 


2270 


2598 


2629 


2637 


2659 


2661 


3245 


3361 


3364 


3432 


3433 


3434 


3443 


3446 


3459 


347 1 


3501 


3525 


3539 


3667 


3726 


3738 


3742 


3879 


3891 


3896 


3925 


3941 


3992 


4635 


4665 


4874 


4933 


4956 


5008 


5013 


5033 


5037 


5042 


5057 


5060 


5070 


5142 


5405 


5740 


5743 


5746 


5787 


5813 


5816 


5832 


5838 


5867 


5886 


5892 


5900 


5904 


5915 


5927 


5931 


5938 


5957 


5985 


6062 


6077 


6115 


6150 


6167 


6 194 


6205 


6209 


6265 


6271 


6318 


6375 


6379 


64 14 


6439 


6480 


6485 


6543 


6662 


6704 


6713 


6862 


6888 


6902 


6949 


6963 


6965 


6996 


7076 


7081 


7 106 


7 140 


7 142 


7 144 


7 146 


7 158 


72 18 


7219 


7220 


7221 


7222 


7223 


7224 


7246 


73 16 


7442 


7463 


7463 


7639 


7655 


7725 


7732 


7735 


7738 


774 1 


7744 


7989 


822 1 


8254 


8262 


8475 


848 1 


8487 


8489 


8491 


8493 


8495 


8497 


8499 


8500 


8501 


8523 


8539 


















673 # 


2327 


2329 


2342 


2364 


2365 


2596 


263 1 


2635 


2652 


2654 


2678 


302 1 


3023 


3294 


3436 


3445 


3448 


3450 


345 1 


3452 


3485 


3490 


3493 


3513 


■3534 


3547 


3678 


3826 


3828 


3830 


3832 


3834 


3836 


3838 


3840 


3848 


3862 


3872 


3922 


3938 


4003 


4004 


4005 


4027 


4050 


4257 


4296 


4358 


44 12 


4535 


47 12 


4847 


4855 


4918 


4963 


5001 


5005 


5107 


5 108 


5111 


5112 


5 1 36 


5 137 


5 159 


5 1 70 


5230 


523 1 


5307 


5323 


5426 


5427 


5434 


5450 


5572 


5607 


5637 


5638 


5653 


5733 


5755 


5982 


5987 


6056 


6072 


6073 


6079 


61 18 


6120 


6127 


6133 


6142 


6161 


6213 


6216 


6221 


6246 


6252 


6323 


64 17 


6419 


6489 


6493 


6547 


6589 


6593 


6597 


6601 


6605 


6609 


6625 


6723 


6735 


6806 


68 15 


68 16 


68 17 


682 1 


6822 


6823 


6824 


6829 


6830 


6831 


6834 


6835 


6836 


6837 


6838 


6839 


6840 


6841 


6856 


6896 


6899 


6920 


6925 


6935 


6940 


6947 


6952 


697 1 


6972 


6980 


6987 


701 5 


7037 


7048 


7 132 


7 134 


7 136 


7138 


7270 


7472 


7517 


7591 


7593 


7595 


7597 


7599 


7601 


7603 


7605 


7982 


7985 


8036 


8040 


8043 


8048 


8181 


8200 


8228 


8232 


8253 


8257 


8260 


827 1 


83 17 


84 16 


842 1 


8426 


8432 


8446 


8509 


















1035 # 


3597 


37 14 


3720 


4 106 


4606 


4623 


6205 










1258 # 


2456 


2457 


246 1 


2462 


2466 


2467 


247 1 


2472 


2509 


2510 


25 14 


2515 


2519 


2520 


2524 


2525 


2529 


2530 


2534 


2535 


2539 


2540 


2544 


2545 


2551 


2552 


2556 


2557 


2561 


2562 


2566 


2567 


2571 ' 


2572 


2576 


2577 


2581 


2582 


2586 


2587 


2706 


2707 


2716 


2717 


2726 


2727 


2736 


2737 


2741 


2742 


2751 


2752 


2758 


2759 


2768 


2769 


2778 


2779 


2788 


2789 


2798 


2799 


2808 


2809 


2819 


2820 


2829 


2830 


2839 


2840 


2849 


2850 


3951 


3952 


3965 


3966 


4013 


4014 


4038 


4039 


4205 


4206 


4210 


421 1 


5078 


5079 


5082 


5083 


5086 


5087 


5090 


5091 


5123 


5124 


5128 


5129 


5152 


5153 


5157 


5158 


7001 














900 # 


2484 


2854 


3277 


3327 


3408 


3434 


3443 


3446 


3970 


3987 


3995 


4000 


4 174 


4178 


4220 


4264 


4297 


4320 


4321 


4327 


4348 


4374 


4415 


4416 


4417 


4433 


4435 


4442 


4448 


4479 


4509 


4514 


4519 


4524 


4536 


4540 


4544 


4546 


4875 


4932 


4949 


5002 


5014 


5030 


5054 


5097 


5172 


5 175 


5176 


5183 


5 194 


5207 


5299 


5301 


5303 


5305 


53 16 


5332 


536 1 


5400 


5513 


5524 


5531 


5547 


5588 


5593 


56 14 


5620 


5654 


5778 


581 1 


5825 


5846 


5913 


5949 


5950 


5951 


5998 


6062 


6080 


6083 


6151 


6168 


6176 


6195 


6203 


6204 


6238 


6240 


6243 


6291 


6633 


6754 


6762 


6768 


7058 


7158 


7182 


7195 


7442 


8370 


8380 


8475 


8527 








645 n 
























648 # 


6818 


6819 


6871 


6903 


7064 














649 # 
























651 # 


2948 


4591 


4596 


4610 


4631 


4690 


4691 


4692 


4693 


4694 


4784 


4785 


4786 


4787 


4788 


5848 


5858 


6340 


6470 


6486 


. 6658 


6661 


6701 


6703 


6774 
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Cross 


Reference 
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C K o u 


22y b 


2476 


2623 


2625 


2628 


2631 


2634 


2637 


3176 


3181 


3500 


do / / 


o / o4 


3748 


38,60 


4710 


4836 


4852 


4952 


4995 


5004 


5068 


62 1 5 


oz / z 


bz / / 


6278 


6572 


6895 


7 1 34 


7147 


7157 


8172 


8406 






650 ft 


5307 


5323 


5653 


7089 


7090 


7091 












654 ft 


2068 


2175 


2246 


2259 


2268 


2272 


2300 


231 1 


2317 


2330 


3455 


3479 


3494 


3516 


3520 


3524 


3584 


3629 


3666 


3751 


3901 


4663 


4669 


5049 


5727 


5746 


6 1 66 


6409 


6437 


6713 


6727 


6783 


6791 


6798 


69 14 


7019 


7023 


7027 


703 1 


7035 


7074 


7114 


7236 


7240 


7252 


7288 


7294 


73S4 


7465 


7510 


75 1 3 


75 1 5 


76 1 8 


7633 


7657 


7706 


8033 


8089 


8162 


8348 


8397 


8456 


8462 


















647 ft 


8003 






















646 ft 
























653 ft 


7479 


7717 


7983 


7998 


8442 














655 ft 


2056 


2058 


2060 


2062 


2065 


2085 


2086 


2095 


2098 


2 109 


2 1 26 


2145 


2 1 49 


2152 


2 1 55 


2164 


2 1 67 


2170 


2173 


2327 


2329 


2342 


2364 


2365 


2424 


2652 


2654 


2659 


266 1 


2678 


2949 


3020 


3022 


3436 


3445 


3448 


3450 


345 1 


3452 


3485 


3487 


3490 


3493 


3499 


3513 


3514 


3528 


3534 


3547 


3632 


366 1 


3725 


3740 


3826 


3828 


3830 


3832 


3834 


3836 


3838 


3840 


3846 


3850 


3883 


3887 


3889 


3892 


3894 


3921 


3930 


3936 


A (~\f\A 

4UU4 


4UUO 


A o c: "7 
4 ZO / 


4294 


4295 


4305 


4312 


4358 


4410 


4437 


4443 


4535 


a *7 r\r\ 
4 / UU 


404Z 


yl O A K 
4o4 O 


A O A O 

4o4y 


A O CO 

4obo 


4872 


4878 


4882 


491 1 


4916 


4949 


4954 


AQd A 

4yb i 


DUUo 


bU I 1 


5 1 07 


5 1 08 


5111 


5112 


5136 


5137 


5141 


5 1 69 


5 1 70 


5206 


52 1 


5230 


523 1 


5325 


5368 


5370 


5426 


5427 


5434 


5450 


5470 


547 1 


5490 


5493 


5521 


5523 


556 1 


5564 


5567 


5570 


5630 


5637 


5638 


5695 


5697 


5699 


570 1 


5703 


5705 


5707 


5709 


571 1 


5728 


5730 


5755 


577 1 


5774 


5787 


58 1 3 


58 1 6 


5838 


5886 


5892 


5900 


5910 


59 1 2 


593 1 


5938 


5957 


5970 


5974 


598 1 


5985 


5986 


5994 


5998 


6014 


6056 


6072 


6073 


6079 


6085 


6 104 


6117 


6 1 20 


6126 


6131 


6139 


6141 


6 167 


6 194 


6 1 98 


62 1 2 


62 1 4 


6220 


6232 


624 1 


6246 


6252 


6268 


6280 


6283 


629 1 


6303 


6306 


63 1 8 


6322 


6337 


6375 


6379 


6395 


6407 


6412 


64 1 6 


64 18 


6433 


6439 


6453 


6473 


6479 


6487 


6490 


6567 


6588 


6592 


6596 


6600 


6604 


6608 


66 1 8 


6624 


6723 


6733 


6800 


6806 


6815 


6816 


68 1 7 


682 1 


6822 


6823 


6824 


6829 


6830 


6831 


6834 


6835 


6836 


6837 


6838 


6839 


Oo4U 


bo4 I 


bo4 o 


bo4b 


6851 


6853 


6861 


6863 


6865 


6867 


6869 


6872 


con a 
bo/4 


bo / b 


COOT 

boo / 


6897 


6900 


6904 


6918 


6923 


6926 


6930 


6945 


6963 


byb4 


cncc 

0300 


by / vj 


CQ7 4 

by / 1 


by / z 


by / 


6986 


6995 


7015 


7037 


7046 


7065 


7A7Q 


/ 1 zy 


/ 1 J 1 


7 1 32 


7133 


7135 


7 137 


7139 


7140 


7141 


7 142 


7 1 43 


/ 1 4D 


7 1 7C 

/ i / b 


7470 


7 1 89 


7191 


7218 


7219 


7220 


7221 


7222 


7223 


7224 


7225 


7226 


7227 


7228 


7229 


7230 


7231 


7233 


7237 


7245 


7254 


7255 


7266 


7270 


7284 


7290 


7296 


7298 


7312 


7376 


7379 


7387 


7394 


7400 


74 1 4 


74 1 5 


7426 


7432 


7446 


7448 


7462 


7505 


7591 


7593 


7595 


7597 


7599 


760 1 


7603 


7605 


7653 


7654 


7980 


7984 


7988 


7989 


801 3 


801 5 


8029 


8034 


8037 


8038 


804 1 


8047 


8055 


8057 


8076 


8084 


8095 


8 102 


8 105 


8119 


8124 


8125 


8165 


8176 


8 1 79 


8183 


8187 


8 1 92 


8 193 


8 199 


8201 


8202 


8205 


8207 


8218 


8219 


8223 


8226 


8230 


8240 


8251 


8255 


8258 


8259 


8261 


8267 


8274 


8276 


8277 


8278 


8279 


8282 


8302 


8306 


83 1 4 


8320 


8323 


8325 


8328 


833 1 


8351 


8361 


8370 


8380 


8384 


8394 


8399 


84 10 


8412 


84 1 4 


84 1 5 


84 1 7 


8419 


8422 


8424 


8428 


843 1 


8436 


8444 


8466 


8469 


8487 


8489 


849 1 


8493 


8495 


8497 


8501 


8506 


8509 


oo id 

636 ft 
























642 # 


2056 


2058 


2060 


2062 


2065 


2068 


2085 


2086 


2095 


2098 


2109 


2126 


2145' 


2149 


2152 


2155 


2164 


2167 


2170 


2173 


2175 


2176 


2246 


2246 


2259 


2260 


2268 


2269 


2272 


2273 


2296 


2300 


2301 


231 1 


2312 


2317 


2318 


2327 


2329 


2330 


2331 


2342 


2364 


2365 


2424 


2476 


2623 
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2625 


2628 


2631 


2634 


2637 


2652 


2654 


2659 


2661 


2678 


2948 


2949 


3020 


3022 


3176 


3181 


3436 


3445 


3448 


3450 


3451 


3452 


3455 


3456 


3479 


3480 


3485 


3487 


3490 


3493 


3494 


3495 


3499 


3500 


3513 


3514 


3516 


3520 


3520 


3524 


3524 


3528 


3534 


3547 


3584 


358^5 


3629 


3630 


3632 


3661 


3666 


3666 


3677 


3725 


3734 


3740 


3748 


3751 


3752 


3826 


3828 


3830 


3832 


3834 


3836 


3838 


3840 


3846 


3850 


3860 


3883 


3887 


3889 


3892 


3894 


3901 


3902 


3921 


3930 


3936 


4004 


4005 


4257 


4294 


4295 


4305 


4312 


4358 


4410 


4437 


4443 


4535 


4591 


4596 


4610 


4631 


4663 


4664 


4669 


4670 


4690 


4691 


4692 


4693 


4694 


4700 


4710 


4784 


4785 


4786 


4787 


4788 


4836 


4842 


4845 


4849 


4852 


4868 


4872 


4878 


4882 


491 1 


4916 


4949 


4952 


4954 


4961 


4995 


5004 


5008 


501 1 


5049 


5050 


5068 


5107 


5108 


5111 


51 12 


5136 


5137 


5141 


5169 


5170 


5206 


5210 


5230 


5231 


5307 


5323 


5325 


•5368 


5370 


5426 


5427 


5434 


5450 


5470 


5471 


5490 


5493 


5521 


5523 


5561 


5564 


5567 


5570 


5630 


5637 


5638 


5653 


5695 


5697 


5699 


5701 


5703 


5705 


5707 


5709 


571 1 


5727 


5727 


5728 


5730 


5746 


5746 


5755 


5771 


5774 


5787 


5813 


5816 


5838 


5848 


5858 


5886 


5892 


5900 


5910 


5912 


5931 


5938 


5957 


5970 


5974 


5981 


5985 


5986 


5994 


5998 


6014 


6056 


6072 


6073 


6079 


6085 


6104 


6117 


6120 


6126 


6131 


6139 


6141 


6166 


6166 


6167 


6194 


6198 


6212 


6214 


6215 


6220 


6232 


6241 


6246 


6252 


6268 


6272 


6277 


6278 


6280 


6283 


6291 


6303 


6306 


6318 


6322 


6337 


6340 


6375 


6379 


6395 


6407 


6409 


6409 


6412 


6416 


6418 


6433 


6437 


6437 


6439 


6453 


6470 


6473 


6479 


6486 


6487 


6490 


6567 


6572 


6588 


6592 


6596 


6600 


6604 


6608 


6618 


6624 


6658 


6661 


6701 


6703 


6713 


6713 


6723 


6727 


6728 


6733 


6774 


6783 


6791 


6798 


6798 


6800 


6806 


6815 


6816 


6817 


6818 


6819 


6821 


6822 


6823 


6824 


6829 


6830 


6831 


6834 


6835 


6836 


6837 


6838 


6839 


6840 


6841 


6843 


6846 


6851 


6853 


6861 


6863 


6865 


6867 


6869 


6871 


6872 


6874 


6876' 


6887 


6895 


6897 


6900 


6903 


6904 


6914 


6915 


6918 


6923 


6926 


6930 


6945 


6963 


6964 


6965 


6970 


6971 


6972 


6978 


6986 


6995 


7015 


7019 


7019 


7023 


7023 


7027 


7027 


7031 


7031 


7035 


7035 


7037 


7046 


7064 


7065 


7074 


7075 


7079 


7089 


7090 


7091 


7114 


71 14 


7129 


7131 


7132 


7133 


7134 


7135 


7137 


7139 


7140 


7141 


7142 


7143 


7145 


7147 


7157. 


7176 


7178 


7189 


7191 


7218 


7219 


7220 


7221 


7222 


7223 


*7224 


7225 


7226 


7227 


7228 


7229 


7230 


7231 


7233 


7236 


7237 


7240, 


7241 


7245 


7252 


7252 


7254 


7255 


7266 


7270 


7284 


7288 


7289 


7290 


7294 


7294 


7296 


7298 


7312 


7376 


7379 


7384 


7385 


7387 


7394 


7400 


7414 


7415 


7426 


7432 


7446 


7448 


7462 


7465 


7465 


• 7479 


7505 


75 10 


7510 


7513 


7513 


7515 


7515 


7591 


7593 


7595 


7597 


7599 


7601 


7603 


7605 


7618 


7619 


7633 


7653 


7654 


7657 


7658 


7706 


7717 


7980 


7983 


7984 


7988 


7989 


7998 


8003 


8009 


8013 


8015 


8029 


8033 


8034 


8037 


8038 


8041 


8047 


8055 


8057 


8076 


8084 


8089 


8090 


8095 


8102 


8105 


8119 


8124 


8125 


8162 


8163 


8165 


8172 


8176 


8179 


8183 


8187 


8192 


8193 


8199 


8201 


8202 


8205 


8207 


8218 


8219 


8223 


8226 


Q O OA 




one -j 








8261 


8267 


8274 


8276 


0077 


0070 

o*d / o 


8279 


8282 


8302 


8306 


8314 


8320 


8323 


8325 


8328 


8331 


8348 


8349 


8351 


8361 


8370 


8380 


8384 


8394 


8397 


8398 


8399 


8406 


8410 


8412 


8414 


8415 


8417 


8419 


8422 


8424 


8428 


8431 


8436 


8442 


8444 


8456 


8462 


8466 


8469 


8487 


8489 


8491 


8493 


8495 


8497 


8501 


8506 


8509 


8516 
640 # 


2080 


2081 


2396 


2402 


2428 


2434 


2440 


2445 


2448 


2498 


2679 


2694 


2929 


2950 


2985 


3018 


3024 


3207 


3294 


3296 


3313 


3336 


3339 


3339 


3342 


3342 


3345 


3345 


3348, 


3351 


3351 


3354 


3354 


3357 


3357 


3561 


3602 


3608 


3617 


3619 


3647 


3653 


3682 


3687 


3715 


3724 


3868 


3870 


3875 


3914 


3918 


3940 


4003 


4027 


4050 


4078 


4086 


4095 


4097 


4108 


4108 


4109 


41 10 


4112 


4114 


4336 


4352 


4353 


4354 


4356 


4359 
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Reference 
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4378 


4380 


4383 


4510 


4515 


4520 


4526 


4527 


*+ d z 


4CAR 


4636 


479 1 






4964 


5009 


5027 


5053 


5071 


5257 


5263 


5575 


5583 


cc i q 


5620 


562 1 






5628 


5778 


5824 


5844' 


5851 


5861 


5864 


5899 




D wJ WO 


5937 


5944 






5978 


6020 


6037 


6039 


6074 


6075 


OU / D 


DUO / 


cnpo 




6097 


6121 






6121 


6124 


6156 


6162 


6173 


6 178 


coon 

O Z. \J\J 


con 4 
OZU 1 


ROAO 


cocn 
D vjDU 


636 1 


6406 






6421 


6494 


6510 


6547 


6636 


6636 


0D04 


C7AC 


C7/1Q 
O/HO 


C7C 4 


6758 


6763 






6770 


7048 


7 105 


7107 


7168 


734 1 


/ *T 1 O 


7/ICA 
/ '+OU 


7COC 
/ D ZD 


7C07 
/ D Z / 


7529 


7638 






7723 


7724 


7726 


7727 


7730 


773 1 


7733 


7704 

/ / 0*+ 




7707 


7739 


7740 






7742* 


7743 


7745 


7746 


7748 


7990 


P477 


OJ 10 


peon 


pcqo 


8534 






PC FLAGS 


637 # 


3535 


3549 


3596 


3713 


37 19 


OOO 1 


0O0O 


OiJ 1 O 


*+ 1 1 D 


6779 


7256 






7268 


8517 


8518 






















PI NEW 


638 # 


7215 
























RAM 


641 # 


2088 


2196 


2208 


2223 


2236 


2264 


2277 


ZZ 1 O 


ooqn 

Z Z ZJ\J 


2291 


2495 






2596 


2598 


2629 


2635 


2688 


2721 


2731 


2763 


2773 


2793 


2803 


28 13 


- 




2844 


2872 


2875 


2889 


2895 


2907 


29 1 


2923 


2994 




3183 


3198 






3201 


3206 


3277 


3380 


3394 


3408 


34 1 6 


3463 


347 1 


3586 


3624 


3657 






3679 


3735 


3747 


3956 


3970 


3983 


3986 


3995 


3997 


4AAH 


4018 


4046 


z 

° 




4074 


4076 


4088 


4093 


4111 


4113 


AO 1 


*t £. *L D 


400c 

*t Z Z O 


/I orjp 
H 0U0 


4310 


4332 






4339 


4349 


4509 


4513 


4514 


45 18 


f u i y 


'f J/O 




I z 


46 16 


4648 


1 

o 




4656 


4866 


4875 


4876 


4888 


4892 


4927 


4934 




4047 


4994 


5006 






5069 


5100 


5133 


5165 


5229 


5364 


5365 


5375 


5455 


5467 


55 10 


5518 






5740 


5743 


5770 


5773 


5788 


5791 


5807 


58 1 1 


582 1 


5828 


5837 


5840 


1 




5856 


5860 


5875 


5876 


5877 


5878 


5895 


5909 


59 1 1 


Q ;?Z 


5942 


5948 






5955 


5961 


5973 


5976 


5993 


5996 


6000 


6004 




6009 


6016 


6018 






6026 


6028 


6031 


6067 


6069 


6070 


6082 


6083 


6 102 


6 1 07 


6108 


6109 


1 




6130 


6135 


6147 


6153 


6163 


6 1 71 


R 1 7fi 




C4RQ 


C4QC 


6196 


6197 


w 




6218 


6238 


6243 


6248 


6250 


6267 


COOK 
DO<CJ 


DoDu 


cocc 
0000 


OOO cJ 


6394 


6403 






6405 


6430 


6445 


6507 


6509 


6552 


6553 


6560 






6629 


6634 






6638 


6640 


6655 


6657 


6634 


6708 


O / 1 \J 


C7/H 


C74C 

u / ID 


C740 


6754 


6755 






6760 


6768 


6769 


6772 


6860 


6894 


COCO 

O cJO z. 


7AAC 


/ Wo 


/ U l U 


7012 


7014 


1 




7043 


7052 


7057 


7063 


7095 


7096 


7099 


7 i on 




7044 


7358 


7360 


/j 




7452 


7455 


7457 


7463 


7469 


7471 


7626 


7705 


77 10 


77 1 4 


7729 


7747 






7749 


7750 


7752 


7987 


8068 


8071 


8098 


8 100 


8 1 29 


8 1 46 


8149 


8168 






8208 


8212 


8214 


8245 


8285 


8286 


8287 


8293 


8300 


8304 


8452 


8458 


I 
< 




8467 


8471 


8483 






















(U) DEST 


571 n 


























A 


572 ft 


2296 


2312 


2396 


2428 


2476 


2623 


2625 


2628 


263 1 


2634 


2637 


I 




2679 


2950 


2985 


3176 


3181 


3207 


3294 


3296 


3336 


3339 


3342 


3345 






3348 


3351 


3354 


3357 


3500 


3617 


36 1 9 




O / ID 


^7 1A 
/ 0«+ 


3748 


3860 






4003 


4027 


4050 


4108 


435*3 


4359 


H J<iO 


/IRQ 1 

*+ D 1 


4CQC 


4CAC 


46 10 


4631 






4690 


4691 


4692 


4693 


4694 


4710 


A7RA 


H 1 oD 


47pc 


47P7 


4788 


4836 






4852 


4952 


4995 


5004 


5009 


5068 


507 1 


5257 




COA7 
DOW / 


5323 


5583 






5628 


5653 


5824 


5844 


5848 


5858 


586 1 


590 1 


030/ 


5944 


5978 


6037 






6039 


6074 


6075 


6087 


6088 


6121 


6 1 24 


6 1 56 


6162 


6173 


6178 


6200 






6201 


6202 


6215 


6272 


6277 


6278 


6340 


636 1 


642 1 


6486 


6494 


6547 






6572 


6636 


6658 


6661 


6664 


6701 


6703 


6705 


6743 


675 1 


6758 


6763 






6770 


6774 


6895 


7048 


7134 


7147 


7157 


734 1 


7529 


7990 


8172 


8406 




AD 


574 # 


2056 


2058 


2060 


2062 


2065 


2068 


2070 


2073 


2082 


2085 


2086 






2087 


2088 


2091 


2098 


2101 


2109 


2 1 23 


2 1 26 


2 1 36 


2 1 38 


2145 


2149 






2152 


2155 


2164 


2167 


2170 


2173 


2 1 76 


2 183 


2 196 


2202 


2208 


2223 






2227 


2236 


2246 


2260 


2264 


2269 


2270 


2273 


2277 


2278 


2301 


2307 






2318 


2321 


2324 


2327 


2329 


2342 


2364 


2365 


2424 


2484 


2495 


2596 






2598 


2629 


2635 


2645 


2647 


2652 


2654 


2659 


2661 


2666 


2668 


2678 






2688 


271 1 


2721 


2731 


2746 


2763 


2773 


2783 


2793 


2803 


2813 


2814 






2824 


2834 


2844 


2854 


2872 


2875 


2889 


2923 


2926 


2949 


3178 


3183 
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3195 


3198 


3408 


34 16 


3471 


3480 


3524 


3528 


3614 


3624 


3735 


3737 


3840 


3846 


3902 


3915 


3991 


3995 


4046 


4051 


4224 


4225 


4329 


4338 


4443 


4456 


4629 


4635 


4866 


4868 


496 1 


4994 


5059 


5060 


5117 


5 133 


5229 


5230 


5333 


5344 


5427 


5431 


5514 


5522 


5612 


5614 


5707 


5709 


5770 


5773 


58 1 i 


5813 


5846 


5855 


5890 


5892 


5931' 


5938 


5973 


5974 


6018 


6026 


6069 


6070 


6 107 


6 1 08 


6141 


6144 


6169 


6171 


6204 


6205 


6243 


6246 


6318 


6322 


6403 


6405 


6445 


6453 


6560 


6569 


6629 


6633 


6704 


6713 


6762 


6766 


6817 


6818 


6834 


6835 


6860 


6861 


6897 


6900 


6948 


6950 


6986 


6991 


7027 


7031 


7063 


7064 


7099 


7106 


7144 


7146 


7219 


7220 
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Reference 
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3201 


3206 


3245 


3277 


331 1 


3327 


3361 


3364 


3380 


3394 


3432 


3433 


3436 


3445 


3448 


3450 


3451 


3452 


3456 


3459 


3485 


3486 


3487 


3490 


3493 


3495 


3501 


3513 


3520 


3521 


3534 


3535 


3539 


3542 


3547 


3549 


3560 


3585 


3586 


3596 


3630 


3632 


3657 


3661 


3666 


3679 


3713 


37 19 


3725 


3732 


3740 


3747 


3752 


3826 


3828 


3830 


3832 


3834 


3836 


3838 


3850 


3852 


3861 


3871 


3879 


3883 


3885 


3886 


3889 


3894 


3921 


3925 


3930 


3936 


3941 


3956 


3970 


3983 


3986 


3990 


3997 


4000 


v 4004 


4005 


4017 


4023 


4029 


4031 


4032 


4045 


4054 


4055 


4069 


4085 


4099 


41 15 


4122 


4215 


4218 


4220 


4239 


4245 


4251 


4257 


4274 


4294 


4305 


4306 


4312 


4323 


4346 


4358 


4365 


4368 


4417 


4432 


4434 


4435 


4437 


4442 


4523 


4524 


4535 


4536 


4538 


4540 


4544 


4545 


4546 


4616 


4664 


4670 


, 4712 


4723 


4808 


4809 


48 10 


48 1 1 


4845 


4854 


4876 


4878 


4882 


4885 


49 1 1 


4924 


4934 


4937 


4943 


4954 


5000 


5003 


5006 


5008 


501 1 


5033 


5035 


5037 


5042 


5057 


5069 


5097 


5100 


5103 


5 104 


5 105 


5 107 


5 108 


5111 


5112 


5 1 36 


5 137 


5 143 


5163 


5 165 


5 169 


5170 


5171 


5172 


5207 


523 1 


526 1 


5265 


5266 


53 14 


53 16 


5326 


5329 


5331 


5332 


536 1 


5362 


5375 


5380 


538 1 


5388 


5389 


5399 


5424 


5426 


5434 


5451 


5462 


5474 


5475 


5504 


5506 


5507 


5512 


5513 


5533 


5535 


5549 


5550 


5573 


5589 


5591 


5593 


5608 


5610 


5617 


5637 


5638 


5654 


5695 


5697 


5699 


5701 


5703 


5705 


571 1 


5727 


5730 


5732 


5740 


5741 


5743 


5746 


5755 


5766 


5774 


5780 


5782 


5787 


5788 


5789 


5791 


5799 


5807 


580.9 


5816 


5821 


5825 


5828 


5830 


5831 


5832 


5837 


5838 


5840 


5856 


. 5860 


5862 


5867 


5875 


5876 


5877 


5878 


5885 


5886 


5895 


5900 


5904 


5909 


591 1 


5914 


5915 


5916 


5927 


5929 


5942 


5946 


5948 


5949 


5950 


5951 


5956 


5957 


5961 


5970 


5976 


5981 


5985 


5986 


5993 


5996 


6000 


6004 


6007 


6009 


6028 


6031 


6034 


6045 


6047 


6056 


6057 


606 1 


6062 


6067 


6072 


6073 


6077 


6079 


6080 


6082 


6083 


6085 


6102 


6 104 


6109 


61 15 


61 17 


6120 


6125 


6 126 


6130 


6131 


6135 


6137 


6147 


6149 


6150 


6151 


6153 


6161 


6163 


6 164 


6166 


6167 


6176 


6182 


6185 


6189 


6194 


6195 


6196 


6197 


6199 


6203 


6209. 


6213 


6216 


6218 


6220 


6232 


6236 


6238 


6240 


6241 


6248 


6250 


6252 


6254 


6265 


6267 


6271 


6280 


6283 


6317 


6325 


6334 


6336. 


6341 


6366 


6369 


6375 


6379 


6394 


6395 


6407 


6409 


6412 


6416 


6418 


6430 


6433 


6435 


6437 


6439 


6473 


6479 


6484 


6487 


6490 


6492 


6507 


6509 


6543 


6552 


6588 


6592 


6596 


6600 


6604 


6608 


6618 


6622 


6624 


6627 


6634 


6638 


6640 


6655 


6657 


6660 


6662 


6683 


6684 


6702 


6723 


6728 


6733 


6741 


6745 


6749 


6754 


6755 


6759 


6760 


6768 


6769 


6772 


6779 


6782 


6790 


6798 


6806 


6815 


6816 


6819 


6821 


6822 


6823 


6824 


6825 


6826 


6829 


6830 


6831 


6836 


6837 


6838 


6839 


6840 


6841 


6843 


6846 


6851 


6853 


6863 


6864 


6865 


6868 


6870 


6871 


6873 


6875 


6887 


6894 


6903 


6904 


6906 


6915 


6918 


6923 


6930 


6933 


6938 


6945 


6951 


6962 


6963 


6965 


6969 


6971 


6972 


6978 


6979 


6984 


6995 


6996 


7006 


7008 


7010 


7012 


7014 


7015 


7019 


7023 


7035 


7037 


7043 


7046 


7047 


7052 


7053 


7055 


7057 


7058 


7065 


7075 


7076 


7079 


7089 


7090 


7091 


7094 


7095 


7096 


7114 


7120 


7126 


7130 


7132 


7133 


7136 


7138 


7140 


7142 


7158 


7159 


7175 


7176 


7178 


7182 


7189 


7191 


7195 


7218 


7221 


7222 


7223 


7224 


7225 


7226 


7227 


7228 


7229 


7230 
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7231 


7233 


7237 


7241 


7243 


7245 


7247 


7252 


7256 


7266 


7268 


7270 


7272 


7282 


7284 


7286 


7289 


7290 


7292 


7294 


7298 




73 1 2 


7316 


7330 


7344 


7354 


7356 


7358 


7360 


l oy o 


/ / 


/ / 


/ 00 O 


7388 


7394 


7400 


74 15 


7426 


7432 


7445 


7452 


7455 


7457 


7463 


7465 


7469 


747 1 


7472 


7479 


7505 


75 10 


7513 


75 17 


7519 


7RQ 1 




/ OcJO 


7597 


7599 


7601 


7603 


7605 


76 19 


7626 


7636 


/ Ou3 


/OOO 


/ OO** 


/ OOo 


7705 


7710 


77 14 


77 17 


7725 


7729 


7732 


7735 


7700 

/ / OO 


77/! 1 
/ / 4 1 


in a a 

1 1 44 


77/17 
/ / 4 / 


7749 


7750 


7752 


7980 


7983 


7984 


7987 


7989 


7QQO 


QAAQ 


&\J 1 O 


OA 4 C 

ovj 1 O 


8029 


8034 


8038 


804 1 


8047 


8049 


8055 


8068 


OA7 4 




QAQ /I 

oUo4 


QAQA 

ouyu 


8098 


8 100 


8125 


8127 


8129 


8 1 46 


8 1 49 


8 1 63 


R i fiP 
O 1 Do 


P 1 7fi 


01 / y 


O 1 C70 


8 1 99 


8202 


8208 


82 12 


82 1 4 


82 1 9 


8226 


8230 


P O A O 

o Z4 Z 




oZO 1 


Q O C /I 
oZo4 


8255 


8259 


826 1 


8263 


8266 


8267 


8274 


8276 


O Z 1 




pope 
Zoo 


pope 

ZoO 


8287 


8293 


8300 


8304 


83 14 


8316 


8349 


8360 


O O / ** 


pop a 


pqpn 

OOO J 


P 1QA 
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tt 


5426 


• 5430 


DFADJ4 


5431 


tt 


5427 




DFADJ5 


5433 


tt 


5425 


5434 


DFADU6 


5435 


ft 


5433 




DFAS1 


5373 


tt 


5369 


53J1 


DFAS2 


5380 


tt 


5374 




DFAS3 


5385 


tt 


5376 




DFAS5 


5394 


ft 


5382 


5390 


DFAS6 


5399 


tt 


5400 




DFAS7 


5401 


tt 


5399 




DFDV 


5504 


tt 


5501 




DFDV 1 


5510 


tt 


5517 




DFDV2 


5518 


tt 


551 1 




DFDV3 


5529 


ft 


5521 




DFDV4A 


5544 


tt 


5547 




DFDV4B 


5549 


tt 


5546 




DFDV4 


5531 


tt 


5527 




DFMP 


5445 


ft 


5440 




DFMP1 


5447 


ft 


5448 




DFMP2 


5473 


tt 


5470 




DFPR1 


2329 


tt 


2323 




DFPR2 


2330 


ft 


2328 




DFSB 


5361 


tt 


5352 




DIV 


4224 


tt 


4208 


4209 


DIV1 


4233 


tt 


4219 


4221 


DIV2 


4236 


tt 


4249 





5534 



5538 



5530 



4210 
4275 



421 1 
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DIVA 


4245 


# 


423 1 






















pi VB 


425 1 


ft 


4246 






















DIVC 


4264 


ft 


4256 


426 1 




















DI VHI 


4486 


ft 


4480 


4483 


4497 


















DIVIDE 


445 1 


# 


445 1 






















DI VSET 


4445 




444 1 






















DI VSGN 


443 1 


ft 


44 1 3 


5 1 85 




















DI VSUB 


44 10 


ft 


4237 


4870 


4880 


49 1 4 
















DMLINT 


4131 


ft 


4096 






















DMOVNM 


2688 


ft 


2683 






















DMOVN 


2678 


ft 


2674 






















DMOVN1 


2690 


ft 


2682 






















DMTRAP 


4115 


ft 


4109 






















DMUL 


4067 


ft 


4062 






















DMUL 1 


4088 


ft 


4077 






















DMUL2 


4093 


ft 


4087 






















DMULGO 


4122 


ft 


4075 






















DNEG 


5587 


ft 


556 1 


5564 


5567 


5570 
















DNEG1 


5589 


ft 


5587 






















DNEG2 


559 1 


ft 


5588 






















DNN 1 


5617 


ft 


56 13 






















DNN2 


56 19 


ft 


56 1 5 






















DNNORM 


5597 


ft 


5550 


5592 


5594 


5599 


5627 














DNNRM1 


5624 


ft 


5607 






















DNORM 


5558 


ft 


5496 


5549 


5560 


5582 
















DNORMO 


5495 


ft 


5405 






















DNORM 1 


5579 


ft 


5572 






















DN0RM2 


562 1 


ft 


56 1 9 






















OOCVT 


6 1 07 


ft 


6 157 


6173 




















DOCVT 1 


6 1 82 


ft 


6 107 






















DOCVT2 \ 


6203 


ft 


6183 






















D0CVT3 


6200 


ft 


6222 






















DONE 


2 1 35 


ft 


2435 


2449 


2749 


2750 


2929 


3082 


3083 




3092 


O 1 iJ<£ 






3239 




3242 


3257 


3369 


3620 


4118 


4623 


4965 






C047 


COO'S 

Oooo 




6937 




7020 


7024 


7028 


7032 


7036 


7083 


7 1 07 


7 117 
/II/ 


7HCQ 

/ 1 oo 


70AO 


/Oh 1 


DPB 


46 1 2 


ft 


4585 






















DPB 1 


4783 


ft 


4622 


6690 




















DPB7 


4790 


ft 


4784 


4785 


4786 


4787 


4788 


48 1 2 












DPRSLO 


4794 


ft 


4783 






















DRND 1 


5653 


ft 


5649 


5657 


5660 


















DROUND 


5647 


ft 


5563 


5566 


5569 


5601 


5603 


5605 


565 1 










DSM5 1 


731 5 


ft 


7312 


7317 




















DSTEA 


6708 


ft 


67 14 






















DSTIND 


6713 


ft 


67 10 


67 1 1 




















DSUB 


3995 


ft 


3979 






















DUMP 


7722 


ft 


7706 


77 1 3 




















DVSUB 1 


4437 


ft 


4434 






















DVSUB2 


4438 


ft 


4432 






















DVSUB3 


4440 


# 


4444 






















EACALC 


2190 




2253 






















V EAPF 


8532 




8517 






















EAPF1 


8535 




8521 






















EDBYTE 


6445 


# 


6408 


6436 




















EDEXMD 


6356 


# 


6327 






















EDF ILL 


6372 
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EDFIL1 


6387 


ft 


6374 




EDFLT 


6403 


ft 


6349 


6393 


EDFLT1 


6421 


tt 


6417 


6419 


EDISP 


6286 


tt 


6280 




EDISP1 


6288 


tt 


6288 




EDIT 


6265 


tt 






EDITLP 


6270 


ft 


6494 




EDMSG 


6430 


tt 


6295 




EDMSG1 


6439 


tt 


6432 




EDN1A 


6476 


tt 


6481 




EDNOP 


6465 
6456 


tt 


6297 


6299 


EDNOP1 


6466 


tt 


6460 




EDNOP2 


6483 


tt 


6477 


6483 


EDOPR 


6315 


tt 


6292 




EDSEL 


6366 


tt 


6319 




EDSFLT 


6392 


ft 


6376 




EDSKP 


6453 


tt 


6304 


6307 


EDSKP 1 


6457 


tt 


6454 




EDSPUT 


6379 


tt 


6387 


6397 


EDSSIG 


6349 


tt 


6321 




EDSTOP 


6334 


tt 


6317 


6377 


EDSTP1 


6340 


tt 


6343 




ENDSKP 


6077 


tt 


5901 




EQV 


2793 


tt 


2786 


2787 


EXCH 


2495 


ft 


2491 




EXTDSP 


5741 


ft 






EXTEA 


5740 


tt 






EXTEAO 


5737 


tt 


5735 




EXTEA 1 


5738 


tt 


5746 




EXTEND 


5727 


tt 


5723 




EXTEXT 


5750 


tt 


5742 


5756 


EXTIND 


5746 


tt 


5743 




FAD 


5100 


tt 


5077 


5078 


FAS 1 


5 1 02 


tt 






FAS2 


51 1 1 


tt 


5102 




FAS3 


51 14 


tt 


5107 


5108 


FAS4 


51 16 


tt 


5116 




FDV 


5163 


tt 


5151 


5152 


FDVO 


5169 


tt 


5166 




FDV 1 


5171 


tt 


5169 




FDV2 


5172 


tt 


5170 




FDV3 


5173 


tt 


5171 


5172 


FDV4 


5175 


tt 


5176 




FDV5 


5178 


tt 


5175 




FDV6 


5181 


tt 


5178 




FDV7 


5185 


tt 


5186 




FDV8 


5188 


tt 






FDV9 


5196 


tt 


5188 


5193 


FETIND 


2246 


tt 


221 1 


2216 


FIX 


5241 


tt 


5236 


5237 


FIX++ 


4455 


tt 


4456 




FIX1++ 


4457 


tt 


4455 




FIXL 


5256 


tt 


5246 


5256 


FIXPC 


8475 


tt 


4131 


6234 



6301 



6315 



6324 



6350 



6361 



6382 



6388 



6441 



6442 



6309 



2788 



2789 



5079 



5080 



5081 



5082 



5083 



511 1 5112 

5153 5155 5156 5157 5158 



5194 
2238 
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FIXR 


525-1 


ft 


5252 








FIXT 


5263 


ft 


5260 








F I XX 


5260 


ft 


5253 








F IXX 1 


526 1 


ft 


5267 








FL-BWRTTF 


2422 


ft 


526 1 


5265 


5311 


5333 


FLEX 


5311 


ft 


5307 








FLTR 


5206 


ft 


520 1 








FLTR 1 A 


52 1 4 


ft 


52 1 1 








FLTR 1 


52 10 


ft 


5207 








FLTR2 


5219 


ft 


52 1 2 


5214 






FLTR3 


522 1 


ft 


5222 








FMP 


5 1 33 


ft 


5122 


5123 


5 1 24 


5126 


FMP 1 


5 1 38 


ft 


5 1 36 


5137 






FP-LONG 


3838 


ft 


38 1 6 


38 1 7 


38 18 


38 1 9 


FPRO 


2303 


ft 


2297 








FPR 1 


2307 


ft 










FSB 


5097 


ft 


5085 


5086 


5087 


5088 


FSC 


5227 


ft 


5202 








GETPCW 


699 1 


ft 


3877 








\~? i— i oi>u 


6657 


ft 


5932 


6367 






GOFXFC 


3901 


ft 


8537 








GRP700 


6850 


ft 


68 1 1 








GRP701 


6829 


ft 


68 1 2 








GRP702 


/ \J\JZj 


ft 


7nn 1 
/ i 








GSRC 


6655 


ft 


5889 


6542 






GSRC 1 


6664 


ft 


6660 








GTFILL 


6727 


ft 


5769 


6266 






GTPCW 1 


6994 


ft 


6985 


6994 






H 1 


764 1 


ft 


77H7 








HALT 


3485 


ft 


3437 








HALTED 


763 1 


ft 


2098 


2155 


2 173 


2424 


HALTLP 


7647 


ft 


764 1 








HARD 


844 1 


ft 


7505 


801 3 


801 5 


8029 


HLL 


2598 


ft 


2507 


2508 


255 1 


2623 


HLLE 


2664 


ft 


2537 


2538 


2539 


2540 


HLLO 


2668 


ft 


2527 


2528 


2529 


2530 


HLLZ 


2666 


ft 


25 1 7 


2518 


2519 


2520 


HLR 


2625 


ft 


2554 


2555 






HLRE 


2657 


ft 


2584 


2585 


2586 


2587 


HLRM 


2634 


ft 


2556 








HLRO 


266 1 


ft 


2574 


2575 


2576 


2577 


HLRS 


2637 


ft 


2557 








HLRZ 


2659 


ft 


2564 


2565 


2566 


2567 


HRL 


2623 


ft 


25 1 2 


25 1 3 






HRLE 


2650 


ft 


2542 


2543 


2544 


2545 


HRLM 


2628 


ft 


25 1 4 








HRLO 


2654 




2532 


2533 


2534 


2535 


HRLS 


263 1 


ft 


25 1 5 








HRLZ 


2652 


n 


2522 


2523 


2524 


2525 


HRR 


2596 


# 


2509 


2549 


2550 


2625 


HRRE 


2643 




2579 


2580 


2581 


2582 


HRRO 


2647 




2569 


2570 


- 2571 


2572 


HRRZ 


2645 


# 


2559 


2560 


2561 


2562 


HSBDON 


7749 












IBP 


4588 




4581 









5127 5128 
3820 3821 



5089 



5090 



5129 



5091 



3487 



7266 



7298 



8466 
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IBPS 


4629 


tt 


4591 


4596 


4610 












IBPX 


4636 


ft 


3736 


4629 


8132 


8236 










IDIV 


4215 


tt 


4203 


4204 


4205 


4206 










IDPB 


46'10 


tt 


4584 
















IDST 


6701 


tt 


5962 


6685 














IDSTX 


6705 


tt 


6702 
















ILDB 


4596 


tt 


4582 
















IMUL 


4017 


tt 


401 1 


4012 


4013 


4014 










IMUL1 


4023 


tt 


4240 
















IMUL2 


4025 


tt 


4022 
















IMUL3 


4031 


tt 


4028 
















INCAR 


7519 


tt 


5863 


7271 














INCPC 


2183 


tt 


2178 
















INDEX 


2223 


tt 


















INDRCT 


2241 


tt 


















IOEA 


7442 


tt 


7374 


7412 














IOEA1 


7448 


tt 


7450 
















IOEA2 


7452 


tt 


7448 
















IOEAI 


7460 


tt 


7453 
















IOEAX 


7469 


tt 


7456 
















IOR 


2773 


ft 


2766 


2767 


2768 


2769 


2834 








IORD 


7373 


tt 


7329 


7340 


7355 












IORD1 


7382 


tt 


7378 
















IORD2 


7392 


# 


7387 
















IORD3 


7398 




7393 


7399 














I0T700 


7591 




7534 


7535 


7536 












IOT710 


7593 


# 


7538 


7539 














IOT720 


7595 


# 


7541 


7542 














I0T730 


7597 


# 


7544 


7545 


7546 


7547 


7548 


7549 


7550 


7551 


I0T740 


7599 


tt 


7553 


7554 


7555 


7556 


7557 


7558 


7559 


7560 


IOT750 


7601 


ft 


7562 


7563 


7564 


7565 


7566 


7567 


7568 


7569 


I0T760 


7603 


ft 


7571 


7572 


7573 


7574 


7575 


7576 


7577 


7578 


IOT770 


7605 


ft 


7580 


7581 


7582 


7583 


7584 


7585 


7586 


7587 


IOW1 


7482 


ft 


7487 
















IOW2 


7494 


ft 


7484 


7490 














I0W3 


7497 


ft 


7504 
















I0W4 


7502 


ft 


7498 
















I0W5 


7505 


tt 


7492 
















IOWAIT 


7478 


tt 


7383 


7419 














IOWR 


741 1 


ft 


7344 


7364 














I0WR1 


7417 


ft 


7427 


7433 














IQWR2 


7424 


ft 


7414 
















I0WR3 


7430 


tt 


7425 


7431 














ITRAP 


7997 


tt 


5865 
















UEN 


3493 


ft 


3447 
















JEN1 


7312 


tt 


3499 


3514 














JEN2 


3499 


tt 


3491 
















UFCL 


3505 


tt . 


3425 
















JFFO 


2923 


tt 


2862 
















UFF01 


2931 


tt 


2928 
















UFFOL 


2945 


tt 


2947 
















JMPA 


3348 


ft 


3753 
















JRA 


3747 


ft 


3709 
















JRST 


3432 


tt 


3373 


3423 














JRSTO 


3461 


ft 


3458 


3482 


3497 
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URST 1 


3479 


ft 


3474 


3478 






JRST 10 


3490 


ft 


3444 








JRSTF 


3455 


ft 


3435 








JSA 


3732 


ft 


3708 








JSP 


37 1 3 


ft 


3707 








JSR 


37 1 9 


ft 


3706 








JSTAC 


36 1 4 


ft 


3604 


36 1 1 


3649 




JSTAC 1 


36 1 7 


ft 


3668 








JSYS 


3832 


ft 


38 1 3 








JUMP 


3380 


ft 


3370 


337 1 


3372 


3374 


JUMP - 1 ABLE 


3333 


ft 


3380 


3394 


3408 


34 1 8 


JUMP- 


3360 


ft 


3339 


3342 


3345 


3508 


JUMPA 


3364 


ft 


3348 


335 1 


3354 


3357 


K I EPT 


8389 


ft 


8383 


8386 






KI F 10 


8380 


ft 


8373 








KI F30 


8397 


ft 


8378 


8393 






KI F40 


8403 


ft 


8407 








KI F50 


84 10 


ft 


8405 


8433 


8448 




KI F80 


843 1 


ft 










KI F90 


8436 


ft 


8427 








KI F I LL 


8368 


ft 


8063 








t k/ii ii ir*i 

KIMUUu 


39 1 3 


ft 


3859 








KIUPT 


8374 


ft 


8396 








L -BDEC 


570 1 


ft 


5676 


5677 






i _ /■» rjj c 


CCQC 

ofoy o 


ft 


Dbbb 


5667 


5668 


5670 


L UblN 


5699 


ft 


DO / 4 


ot> / o 






L - ED I T 


5697 


ft 


5669 








L -MVS 


5703 


ft 


5679 


5680 


568 1 


5682 


L-SPARE -A 


5707 


ft 


5685 








i rn a nr d 

L-SPARE ~B 


5709 


ft 


5686 








L-SPARE-C 


57 1 1 


ft 


5687 


5688 


5689 


5690 


L-XBLT 


5705 


ft 


5684 








LDB 


4598 


ft 


4583 








LDB 1 


4685 


u 


4605 


5965 


6670 




LDB7 


4699 


ft 


4690 


469 1 


4692 


4693 


LDBSH 


4714 


ft 


4709 








LDBSWP 


4708 


ft 


4687 








LDP 1 2 


7 1 58 


ft 


3500 


7147 






LOADAR 


75 10 


ft 


62 1 1 


6274 


6357 


7444 


LOADARa 


7513 


ft 


6566 


7078 






LUAUr 1 


/ IO / 


M 

it 


2 lUl 








LUAuy 


/D IO 


ft 


cr r\ ^ r\ 
OU IO 


cr o 4 o 

by i o 






1 C l_J 

Lbn 


<£C5 / 2 


ft 


O Ofi A 

ZOO 1 








i cur 


<dy / 4 


ff 


OQCC 








i cur* i 




44 

ft 


OQ7/1 

<dy / 4 








LSHCR 


2978 


ft 


0Q70 








LSHCX 


2984 


ft 


2979 


305 1 


3056 




LSHL 


2879 


ft 


2874 








LUUO 


3930 


ft 


3759 


3760 


3761 


3762 


LUU01 


3933 


ft 


5695 


5697 


5699 


5701 


MAP 


7980 


ft 


7976 








MAPDON 


8523 


ft 


8486 








MOVE 


2482 


ft 


2456 


2479 


2486 


2510 




4004 




4005 


4031 


4032 


4056 


MOVELP 


5807 


ft 


5787 


5816 







3375 



3716 



3376 



3907 



3763 
5703 



2552 
4866 



3764 
5705 



2734 



3765 3766 

5707 5709 5711 



2735 2736 



2737 



2751 



2752 
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M0VF1 


6507 


ft 


6513 






















MOVE I L 


6513 


ft 


5839 


5900 




















MOVLPO 


5816 


ft 


5801 






















MOVM 


2479 


ft 


2469 


2471 


2472 


















MOVN 


2484 


ft 


2464 


2465 


2466 


2467 
















MOVPAT 


6282 


ft 


6277 


6279 


6282 


















MOVRU 


5837 


ft 


5793 






















MOV5 


2476 


ft 


2459 


2460 


2461 


2462 


2629 


2635 


2652 


2654 


2659 


2661 




MOVSTX 


5890 


ft 
























MOVSTO 


5885 


ft 


5790 






















MOVST1 


5886 


ft 


584 1 


5896 




















M0VST2 


5899 


ft 


58 tO 


5891 




















M0VST3 


5903 


ft 


5899 






















M0VST4 


5895 


ft 


5852. 






















MSKPAT 


6283 


ft 


6278 






















MUL 


4044 


ft 


4036 


4037 


4038 


4039 
















MUL+ 


4166 


ft 


4150 


4162 


4168 


4186 
















MUL- 


4184 


ft 


4176 


4194 




















MULBY4 


6044 


ft 


6027 






















MULSB1 


4148 


ft 


5456 






















MULSUB 


4147 


ft 


4020 


4048 


4941 


5140 
















MULTIPLY 


4159 


ft 


4127 


5461 


5473 


5480 
















MUUO 


3845 


ft 


3770 


3771 


3772 


3773 


3774 


3775 


3776 


3777 


3778 


3779 


3780 




3781 




3782 


3783 


3784 


3785 


3786 


3787 


3788 


3789 


3790 


3791 


3792 




3793 




3794 


3795 


3796 


3797 


3798 


3799 


3800 


3801 








MVABT 


5821 


# 


5812 






















MVABT1 


5824 


ft 


5826 






















MVABT2 


5828 


ft 


5824 






















MVEND 


5831 


# 
























MVS 


5766 


# 
























MVS 1 


5783 


ft 


5781 






















MVSK2 


5871 


ft 


5845 






















MVSK3 


5861 


# 


5857 






















MVSKP 


5844 


ft 


5837 


5855 


5868 


5879 
















MVSKP1 


5855 


# 


5850 






















MVSKP2 


5867 




5859 






















MVSO 


5795 




5788 






















MVS01 


5798 




5798 






















NEXT 


3925 
7745 


ft 


3868 
7747 


3872 


3914 


7723 


7726 


7728 


7730 


7733 


7736 


7739 


7742 


NEXTAR 


8539 


ft 


8514 


8533 




















NICOND 


2144 
5263 


ft 


2429 
5622 


2950 
7990 


2996 


3024 


3336 


3618 


3694 


3701 


4381 


4384 


5257 


NICOND-FETCH 


2163 


ft 


2135 


2136 


2138 


2139 


2199 


2205 


3233 


3245 


3360 


3361 


3364 




3365 




3432 


3433 


3459 


3501 


4117 


4592 . 


7149 


7420 








NTDISP 


2996 
5532 


ft 


3696 


3700 


4238 


4273 


4304 


4390 


4607 


4897 


5167 


5179 


5244 


NODDIV 


4389 


ft 


4326 


4328 




















NOD IV 


4273 


ft 


4267 


4271 




















NOMOD 


2227 


ft 
























NXTWRD 


4635 


ft 


4631 






















ORCA 


2813 


ft 


2806 


2807 


2808 


2809 
















ORCB 


2844 


ft . 


2837 


2838 


2839 


2840 
















ORCM 


2834 


ft 


2827 


2828 


2829 


2830 

















PAGE-FAIL 7995 ft 



KS10.MC1 [4,311] 



MICRO 31(254) 



KS10 MICROCODE V123, 1 MARCH , 1982 SEAN KEENAN, DON DOSSA Page 269 
Cross Reference Listing - 



r r l UKJ 


o Z I a 


ft 






pp A Ati 
r r I U3 


POOR 


u 

ft 


ozzz 




DC i A7 

rr lU/ 


q o no 


44 
ft 


QOOQ 

ozzy 


OZOO 


DC 1 


ozoo 


u 
ft 


QOAQ 




dp 1 on 
r r i z.\j 


o ZOO 


M 
ft 


QO/IC 
OZ^tO 




DP 1 OR 
r r i 


P. O R R 


44 

ft 


O zo 


0403 


DF i in 

r r 1 O w 


0040 


u 
ft 


on a A 


9 CA 
Z 


PFOR 

r r Z o 


one 


u 

ft 


OAC/i 
OU34 




PF30 


0UD0 


u 

ft 


QAC -1 
QUO 1 




rrOu 


OAO i 


u 
ft 


0A7A 




dp /in 


OAOC 

oUoO 


u 

ft 


QA70 
oU / 




DP^m 
r r *+u 




u 
ft 


olio 


1 z 


r r OvJ 


O 1 z*+ 


u 
ft 


QAQ7 




d pen 


O 4 AQ 

1 uy 


44 
ft 


Ol II 




D C 7A 

rr /U 


1 zy 


U 






DC7K 


8135 


ft 


O ^ "37 
010/ 




D IT 7C 


1 D / 


ft 


8153 


8155 


D ET 77 

rr / / 


8162 


ft 


8075 


8083 


D C O r\ 


8192 


ft 


8 167 




D V OA 

r r yu 


8 1 99 


ft 






ncn 
rrU 


0UU0 


u 

ft 


QAAK 




pcnR T M 
r r L/ E5 1 IN 


C7CO 

/ Oo 


ft 






r rUUIML 


09/A 

O Z c f\J 


u 
ft 


O *f 0*+ 


400 


PFfiAPA 
r r v>M \~> w 


C77A 


ft 






PFMAP 


OAOO 
OVJOO 


ft 
fr 


7QOQ 


on 1 7 


PFP I 1 


OAKA 
O *+ o»_/ 


ft 

fr 


OAA7 
OUU / 


OA -J Q 


DFP T 
r r r i z 




ft 

ft 






DPT 

r r i 


Q/ICC 

o'+OO 


u 
ft 


£5 1 UO 


1 Z4 


D PT 1 


Q/1C7 
o4t3 / 


u 

ft 


Q /! c; c: 




dpt -i n 
rr 1 1U 


OD lU 


U 
ft 


Q CAO 

0OU0 




ncn A 

rr na 


Q A 7 /I 


ft 


O A 70 




DPTO 
r r 1 Z 


O CAC 


44 

ft 


O A O Q 




D C T O 
r r J o 


O CAQ 


ft 


OC07 
OOZ / 




rr 1 1 v^rs 


QUO 

oZ » Z 


44 

ft 


O -1 7C 




D T 
r X 


701R 
/ Z 1 D 


44 
ft 


7 O 4 7 
/ Z 1 / 




p t 1 n 

r 1 I \J 


/Zoo 


44 
ft 


70 p; 
/ zzo 


/ZZO 


P T Ad 


TORI 
/ Z D 1 


ft 


7 0/1Q 

/ z*+o 




P T Rn 

r X ovy 


/ Z O Z 


ft 

ft 


7 mo 

/ OVJZ 




P I EXIT 


71 47 


ft 


3529 




PI JSR 


7266 


ft 


7255 




P I P 1 


7225 


ft 


7218 




PIP2 


7226 


ft 


72 1 9 




PIP3 


7227 


ft 


7220 




PI P4 


7228 


ft 


722 1 




PIP5 


7229 


ft 


7000 
/ z z z 




pips 


/ Z JU 


ft 
fr 


7001 
/zzo 




PIP7 


/ z 1 


ft 

ft 


7004 

/ ZZ*t 




P I SET 


3528 


a 

rr 


7273 




PIXPCW 


3537 


ft 


7258 




POP 


3624 


ft 


3578 




POPd 


3657 


ft 


3579 




P0PX1 


3652 


ft 


3640 




PTRIMM 


8165 


ft 






PTRIND 


8172 


ft 


8215 




PTRSHR 


8186 


ft 


8169 





8021 8023 



8183 8192 8207 8306 8323 8328 8351 8410 



7227 7228 7229 7230 7231 



KS10.MC1[4 f 311] 



MICRO 31(254) 



KS10 MICROCODE V123, 1 MARCH, 1982 -- SEAN KEENAN, DON DOSSA 
Cross Reference Listing 



Page 270 



PUSH 


3584 


ft 


3577 








PUSH1 


3586 


ft 


3598 








PUSHJ 


3596 


ft 


3576 








PUTDST 


6683 


ft 


5814 


5893 


6175 


6194 


PWRON 


•7636 


ft 


2127 








QDNEG 


4509 


ft 


4313 


4389 






OMULT 


4126 


ft 


4084 


4104 






RDAPR 


6894 


ft 










RDCSB 


7008 


ft 










RDCSTM 


7012 


ft 










RDEBR 


6975 


ft 










RDEBR1 


6977 


ft 


6977 








RDERA 


6821 


ft 










RDHSB 


7014 


ft 










RDINT 


7120 


ft 










RDIO 


7340 


ft 


7333 


7335 






RDPI 


7126 


ft 










RDPT 


8344 


ft 


8101 


8112 


8118 


8186 


RDPUR 


7010 


ft 










RDSPB 


7006 


ft 










RDTIME 


7089 


ft 


7103 








RDTIM1 


7105 


ft 


7102 








RDUBR 


6984 


ft 










ROT 


2907 


ft 


2860 








ROTC 


• 3046 


ft 


2864 








ROTCL 


3054 


ft 


3046 


3054 






ROTCR 


3050 


ft 


3050 








ROTL 


2917 


ft 


2909 








RTNREG 


7167 


ft 


6857 


6907 


6981 


6988 


SAVVMA 


7717 


ft 


7632 


7704 






SBRL 


7521 


ft 


5182 


6019 






SECIMM 


8095 


ft 










SECSHR 


8118 


ft 


8099 








SETCA 


2803 


ft 


2796 


2797 


2798 


2799 


SETCM 


2824 


ft 


2817 


2818 


2819 


2820 


SETO 


2854 


ft 


2847 


2848 


2849 


2850 


SETPDL 


3609 


ft 


3654 








SETPTR 


8314 


ft 


8094 


8164 






SETSN 


5637 


ft 


5190 


5192 


5487 




SETUBR 


6938 


ft 


6932 








SETZ 


2711 


ft 


2704 


2705 


2706 


2707 


SFM 


3547 


ft 


3449 








SHDREM 


8359 


ft 


8148 


8151 






SHIFT 


2283 


ft 


2293 








SKIP 


2138 


ft 


3248 


3251 


3254 


6077 


SKIP-COMP-TABLE 


3230 


ft 


3277 


3296 


3297 


5928 


SKIPE 


3239 


ft 


5904 








SKIPS 


3294 


ft 


3283 


3284 


3285 


3286 


SNNEG 


5314 


ft 


5299 


5301 


5303 


5305 


SNNORM 


5318 


ft 


5314 


5316 


5318 


5322 


SNNOT 


5329 


ft 


5325 








SNNOT 1 


5332 


ft 


5327 








SNN0T2 


5333 


ft 


5329 


5331 


5332 




SNORM 


5298 


ft 


5117 


5146 


5223 


5298 


SNORMO 


5223 


ft 


5196 


5208 


5215 


5230 



6981 6988 7006 7008 7010 7012 7014 7121 



2844 



7126 



6205 



3287 



5310 
5231 



6844 



3288 



3289 3290 3313 



KSIO.Mu f[4,31 1 ] 



MICRO 31(254) 



KS10 MICROLUDE V123, 1 MARCH, 1982 
Cross Reference Listing 



SNQRM1 


5310 


ff 


5306 










SOJ 


3408 




3397 


3398 


3399 


3400 


3401 


SOS 


3327 


# 


3316 


3317 


3318 


33 19 


3320 


SRCMOD 


6540 


# 


5808 


59$3 


6635 


6639 


664 1 


SRND1 


5343 




5340 










SROUND 


5340 


# 


5300 


5302 


5304 


53 19 


5320 


SSWEEP 


7204 


ff 


7177 


7190 








STAC 


2428 


ff 


2397 


244 1 


2446 


2454 


2455 




5576 




5583 


5628 


. 5832 


6340 


7620 


STAC34 


6087 


# 


6082 










START 


2157 


ff 


3728 


3743 








STBOTH 


2439 


# 












STBTH1 


2444 


# 


2392 










STDBTH 


2401 














STMAC 


3601 


ff 


3593 










STMEM 


2433 


ff 


7627 










STOBR 


7525 


ff 


3538 


3880 


7269 






STOPC 


7527 


ff 


3541 


7640 








STORE 


2447 


ff 


2699 


3549 








STPF1A 


6766 


ff 


6758 










STPTR1 


8325 


ff 


8322 










STPTR2 


8331 


ff 


8327 










STPTR3 


8337 


ff 


8333 










STRPF 


6754 


ff 


8488 


8490 








STRPFO 


6755 


ff 


6772 










STRPF 1 


6758 


ff 












STRPF2 


6769 


ff 


6766 










STRPF3 


6763 


h 












STRPF4 


6772 




8494 










STRTIO 


7523 


n 


7239 


7287 


7656 






STSELF 


2391 


ff 


2457 










STUBRS 


6942 


ff 


6944 










SUB 


3970 


ff 


3963 


3964 


3965 


3966 




SWEEPL 


7195 


ff 


7198 










SWEEP 


7139 


ff 


6954 


6971 


6972 






TDONE 


3207 


ff 


3198 


3201 








TDX 


3178 


ff 


3086 


3095 


3100 


3104 


3109 




3139 




3144 


3148 








TDXX 


3183 


ff 


3084 


3088 


3093 


3097 


3102 




3133 




3137 


3141 


3146 


3150 




TENLP 


2087 


ff 


2094 










TEST-TABLE 


3189 


ff 


3178 


3184 


7330 






TICK 


7043 


ff 


5874 










TIOX 


7329 


ff 


7322 


7323 


7324 


7325 




TOCK 


7046 


ff 


7100 


8213 


8454 






TOCK1 


7050 


ff 


7056 










TOCK2 


7057 


ff 


7051 










T0CK3 


7061 


ff 


7068 










TRAP 


6779 


ff 


2148 


2151 


2154 


2166 


2169 


TRNAR 


6561 


ff 


6370 










TRNFNC 


6583 


ff 


6571 


6590 


6594 


6598 


6610 


TRNNS1 


6633 


ff 


6623 










TRNNS2 


6636 


ff 


6633 










TRNRET 


6615 


ff 


6584 










TRNSIG 


6596 


ff 


6606 











3402 
3321 



5321 
2470 



3403 
3322 



5341 
2499 



SEAN KEENAN, DON DOSSA 



3404 
3323 



D 

Page 271 



2679 



2880 



2893 



2902 



3113 
3106 



3118 
311 1 



3122 
3115 



3127 
3120 



3131 
3124 



3135 
3129 



2172 



KS10.MC1[4,3113 MICRO 31(254) 



TRNSS 


6622 




66 1 7 




TDMCC H 
1 t\lN OO 1 


66 1 8 




6626 




TRP 1 


6798 


# 


6788 


6796 


TSX 


3176 


ft 


3087 


3096 




3 1 40 




3 145 


3 1 49 


TSXX 


3181 


ft 


3085 


3089 




3 1 34 




3138 


3 1 42 


TV YY 
1 AAA 


3 1 92 


ft 


3207 




TY7Y 
1 A Z. A 


sJ <£- WO 


ft 


3 1 95 




UlViU V £1*1 




ft 


76 1 1 




I |Mn\/F 
UmU V C 


/U 13 


it 

ft 








OOUU 


ft 

ft 




8 1 95 


i h in 
uuu 




44 
ft 




38 1 2 


f ii in -i a a 

UUU 1 \J 1 


3826 


ft 


3806 




i ii in i no 


3828 


ft 


3807 




UUU 1 \J O 


3830 


ft 


3808 




i ii in i or 

UUU 1 \y\J 


3834 


ft 


38 1 4 




I H in 107 

UUU IV// 


3836 


ft 


38 1 5 




UU0247 


3840 


ft 


3822 




UUOFI G 

uu u r Um\3 


3921 


ft 


3863 


39 16 


UIJOGG 


3850 


ft 


2342 


3436 




3534 




3547 


3826 




68 1 5 




68 1 6 


68 1 7 




6836 




6837 


6838 




7597 




7599 


760 1 


i ii mprw 

UUUrbW 


3874 


ft 


3919 




V C V X Iv 1 


7280 


ft 


7243 


7283 




7299 


ft 


7297 




wn ADD 
W K A r K 


6860 


ft 






WD A DP 1 


6879 


ft 


689 1 




WR&PR9 


6885 


ft 


6878 




WRCSB 


7022 


ft 






Wr\U J 1 t'l 


. 7030 


ft 






WREBR 


6957 


ft 






WPFRP1 


6959 


ft 


6959 




U/DUCD 

W fx 1 IO l_> 


7034 


ft 






WRINT 


7113 


ft 






WR 1 


7344 


ft 


7334 


7336 


WRP I 


7 1 29 


ft 






u/ppi ID 

WKrUK 


7026 


ft 






WDCPR 


7018 


ft 






WDTH^R 
WK I noo 


77 10 


ft 


7634 




WPTTMF 


7073 


ft 






WDT T M 1 
W rs I X l v l 1 


7085 


ft 


7054 


708 1 


WP1IRP 


69 1 2 


ft 






XCT 


3558 


ft 


3554 




XCT 1 


3570 


ft 


3564 


6805 


XCT 1 A 


3560 


ft 


3568 




XCT2 


2250 


#' 


3571 




XCTGO 


21"75 


ft 


2159 


7652 


XJEN 


3513 


ft 


3441 




XURSTF 


3520 


ft 


3440 


3543 


XJRSTFO 


3439 


ft 


3517 




XLATE 


6560 


ft 


6546 




XLATE1 


6569 


tt 


6573 





KS 10 MICROCODE V123, 1 MARCH , 1982 SEAN KEENAN , DON D0SSA Page 272 
Cross Reference Listing 



3101 


3105 


31 10 


31 14 


31 19 


3123 


3128 


3132 


3136 


3094 


3098 


3103 


3107 


3112 


31 16 


3121 


3125 


3130 


3147 


3151 
















3445 


3448 


3450* 


3451 


3452 


3485 


3490 


3493 


3513 


3828 


3830 


3832 


3834 


3836 


3838 


3840 


6723 


6806 


6821 


6822 


6823 


6824 


6829 


6830 


6831 


6834 


6835 


6839 


6840 


6841 


7015 


7037 


7132 


7591 


7593 


7595 


7603 


7605 

















7660 



KS10.MC1[4,3i1] 



MICRO 31(254) 



KS10 MICROCODE V123, 1 MARCH, 1982 SEAN KEENAN, DON DOSSA 
Cross Reference Listing 



Page 27 





XOR 


2763 ft 


2756 


2757 


2758 




XOS 


33 12 ft 


3327 








XPCW 


3534 ft 


3442 








7 a nnT a 

ZAPPTA 


7200 ft 


7 1 86 






CD ) 


U 


1 25 1 ft 








(u ) 


JFCLFLG 


1057 ft 


3505 






( K\\ 


LD rLACaS 


106 1 # 


2 1 25 


3464 


3468 


v u ; 


LU HLU 


1 049 ft 


OQAC 






( w\ 

\v) 


i r\\/MA 
LU VMA 


1 i UU # 


*dUbo 


zua t 


n An a 

«^uy i 






2 1 98 


2204 


22 1 


O O A A 

22 14 






269 1 


2695 


2696 


2927 






3365 


3432 


3433 


3434 






3522 


3537 


3539 


3539 






3749 


3857 


3858 


3858 






3925 


3934 


394 1 


3942 






4660 


4996 


50 1 7 


5023 






5744 


5767 


59 1 5 


6 1 64 






6446 


656 1 


6708 


6709 






7 1 06 


7 1 49 


7 1 49 


7167 






7301 


7382 


74 1 7 


7420 






7636 


7639 


7639 


7650 






7735 


7738 


7738 


774 1 






808 1 


8082 


8082 


8086 






8376 


8390 


8392 


8456 


(U) 


LOADFE 


904 ft 


2286 


2304 


23 1 9 






29 1 9 


293 1 


2946 


2992 






4783 


4796 


4799 


4800 






51 72 


5 1 86 


5208 


52 1 2 






5320 


532 1 


5322 


534 1 






5545 


5559 


5566 


5569 






5796 


5798 


5964 


6335 






6688 


6706 






(U) 


LOADSC 


902 ft 


2082 


2092 


2285 






2978 


2982 


2992 


300 1 






4018 


4046 


4083 


4 103 






4333 


434 1 


4448 


445 1 






4938 


4953 


4959 


5 100 






5227 


5245 


5246 


5247 






5430 


5445 


5448 


5456 






6277 


6279 


6282 


6286 






6957 


6959 


6975 


6977 






7424 


7430 


7478 


7485 






8136 


8243 


8249 




(U) 


LSRC 


554 ft 








(U) 


MACROA 












ABORT MEM CYCLE 


1 906 ft 


2068 


35 1 6 


7236 




AC 


1 756 ft 


40 1 7 


4044 


4215 




ACT 1 


1757 ft 


4382 


5508 


5516 




ACU Q 


1658 ft 


3024 


4078 


4086 




AC{ 3 Q. AND. [ 3 


1647 ft 


4336 


4380 


4510 




ACU_[] 


1634 ft 


2396 


2679 


2950 






5978 


6037 


6039 


6074 






6202 


6361 


6664 


6705 




AC[ 3 [] TEST 


1635 ft 


6636 








ACf ]_C 3 VIA AD 


1632 ft 









2759 



3526 


3904 


70C7 


7070 


8472 








2135 


2135 


2 1 36 


2 1 38 


2 1 39 


2 1 39 


2. 1 O / 


1 A O O 
Z I OO 


2237 


224 1 


22z>\J 


2270 


zo 1 2. 


1 O O 1 

2o2 2. 


1 O 1 K 


0007 

2oo / 


3233 


o o o o 


o o A e; 


dooU 


oobU 


Job 1 


oob4 


oobo 


3439 


3443 


O A A a 

J44o 


3459 


3472 


O A *7 c 

o4 / O 


o r- <-\ j 

ODU 1 


oo lb 


oo4o 


3588 


nc 4 c 
OO 1 o 


OO-eiO 


OC07 


004z 


OODO 


071 1 

o / 2 i 


3865 


3866 


3866 


oo /y 


3879 


3898 


ooyy 




A A A *7 

4 1 1 / 


A A A *7 

4 11/ 


4sy z 


A CQ O 

4oy 2. 


460 1 


A C A O 

4b4o 


4boz 


4bob 


5037 


5038 


5042 


5043 


5060 


506 1 


574 1 


5743 


6191 


6236 


6242 


6249 


6265 


6270 


6326 


6404 


6710 


671 1 


6787 


6795 


6912 


7076 


7101 


7106 


7173 


7236 


7251 


7251 


7251 


7252 


7293 


7293 


7420 


7442 


7464 


7523 


76 1 5 


7623 


7633 


7636 


7706 


7722 


7722 


7725 


7725 


7732 


7732 


7735 


7741 


7744 


7744 


775 1 


8033 


8073 


8074 


8074 


8088 


8157 


8 1 59 


8272 


8288 


8344 


8346 


8375 


8462 


85 1 


8511 


85 1 1 


8536 


8536 


8539 


8539 


2873 


2876 


2880 


2890 


2892 


2908 


29 1 1 


29 1 4 


4599 


4603 


46 1 5 


4708 


4713 


4715 


47 1 7 


4720 


4802 


4804 


5 1 06 


5 1 34 


5143 


5145 


5 165 


5171 


5214 


52 1 5 


5229 


5298 


5302 


5304 


53 10 


5318 


5346 


5387 


5402 


5404 


5468 


5485 


5496 


5519 


5581 


5598 


5603 


5605 


5626 


■ 5651 


5659 


5795 


6336 


6342 


6466 


'6467 


6468 


6469 


6666 


6669 


2304 


2319 


2335 


2896 


2898 


2974 


2975 


2976 


3004 


3008 


30 1 5 


3046 


3047 


3048 


3050 


3054 


4123 


4149 


4 161 


4167 


4 175 


4185 


4193 


4236 


449 1 


4837 


A o a r\ 
4o4U 


48b J 


a o an 


A Q C A 

4ob4 


A O *7 *7 
4o / / 


4o9 o 


5 1 04 


5 105 


5114 


5116 


5 1 38 


5185 


52 1 9 


5222 


5249 


5252 


5256 


5366 


5376 


5386 


5420 


5423 


5460 


5463 


5473 


5479 


5534 


5535 


6 109 


6 1 38 


6288 


6459 


6465 


647 1 


6476 


6483 


byjy 


CQ A O 

by4o 


6985 


6992 


6994 


7184 


7197 


7204 


7392 


7399 


7494 


7498 


8050 


8053 


8093 


8107 


81 10 


8133 


7633 


7706 


8033 


8456 


8462 








4306 


5163 


5228 


5369 


5371 








6017 


6081 














4097 


4109 














4515 


4520 


4526 


4527 










4353 


4359 


5583 


5628 


5824 


5844 


5861 


5944 


6087 


6088 


6124 


6156 


6162 


6173 


6178 


6201 


6743 


6751 


6758 


6763 
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AC[3 [3*2 


1637 





4095 


Acn C3+1 


1636 





6510 


ac[3 [3+Q 


1642 







AC[3 []+[] 


1644 





4378 


ac[3 C3-E3 


1643 





5778 


AC [3 [ 3 - AND . [ 3 


1646 





4356 


AC[] [3-EQV.Q 


1648 





41 10 


AC[j -0 


1654 







AC[] -[3 


1649 


. 




AC [3 .NOT. [3 


1652 







AC[ ] 


1656 





2080 


AC[3 1 " 


1657 





2081 


AC -[3 


1650 





5620 


AC . NOT . [ 3 


1653 





5619 


AC 


1655 





4352 


ACJ3 


1638 





2428 




5009 




5071 




7990 






AC [3 TEST 


1639 





3339 


AC [ 3 VIA AD 


1633 







AC []+1 


1640 





6746 


AC n+Q 


1641 







AC []+[] 


1645 





3018 


AC [ ] -OR. [ 3 


1651 





4964 


AD FLAGS 


1934 





2485 




4539 




4541 


AD FLAGS EXIT 


1982 





3957 


AD PARITY 


1860 





2088 




2875 




2889 




4616 




4994 




5837 




5909 




6067 




6069 




6325 




6366 




6755 




7344 


ADD .25 


1891 





2484 




4000 




4174 




4416 




4417 




4540 




4544 




5175 




5176 




5400 




5513 




5825 




5846 




6176 




6195 




7058 




7158 


ADL PARITY 


1853 







ADR PARITY 


1857 







AREAD 


1977 





2228 


ASH 


1868 





2332 


ASH AROV 


1919 





2898 


ASH36 LEFT 


2885 





2898 


ASHC 


1873 





2898 




4372 




4376 




5423 




5430 




5581 




5598 


B DISP 


1978 





2476 




2721 




2731 



6020 



5575 


5621 








41 12 


4114 


4383' 






2929 


4354 


5851 


5899 


6095 


2985 


3207 


3296 


3336 


3348 


5257 


5263 


5901 


5937 


6200 


3342 


3345 


3351 


3354 


3357 


3682 


3687 








5864 


5903 








331 1 


3327 


3394 


3408 


3957 


3971 










2264 


2277 


2278 


2495 


2596 


2923 


3380 


3624 


3657 


3679 


5100 


5133 


5165 


5229 


5375 


591 1 


5929 


5961 


5973 


5976 


6070 


6 102 


6 107 


6108 


6109 


6403 


6405 


6509 


6622 


6629 


7626 










2854 


3277 


3327 


3408 


3434 


4 1 78 


4220 


4264 


4297 


4320 


4433 


4435 


4442 


4448 


4479 


4546 


4875 


4932 


4949 


5002 


5183 


5194 


5207 


5299 


5301 


5524 


5531 


5547 


5588 


5593 


5913 


5949 


5950 


5951 


5998 


6203 


6204 


6238 


6240 


6243 


7182 


7195 


7442 


8370 


8380 


2892 










3014 


■ 3017 








3007 


3010 


3014 


3017 


4167 


4392 


5116 


5219 


5221 


5251 


5433 


5435 


5447 


5488 


5492 


5602 


5604 


5626 


5651 




2482 


2596 


2598 


2631 


2637 


2763 


2773 


2793 


2803 


2814 



6097 



3617 


3619 


3715 


4528 


4606 


6421 


6494 


6770 


7341 


7529 


4108 


6075 


6121 






3971 


3988 


3998 


4001 


4128 


2598 


2629 


2635 


2688 


2872 


3735 


3747 


4046 


4088 


4225 


5770 


5773 


5788 


5791 


5821 


6004 


6007 


6009 


6016 


6026 


6130 


6135 


6147 


' 6182 


6267 


6655 


6657 


6684 


6741 


6749 


3443 


3446 


3970 


3987 


3995 


4321 


4327 


4348 


4374 


4415 


4509 


4514 


4519 


4524 


4536 


5014 


5030 


5054 


5097 


5172 


5303 


5305 


5316 


5332 


5361 


5614 


5620 


5654 


5778 


581 1 


6062 


6080 


6083 


6151 


6168 


6291 


6633 


6754 


6762 


6768 


8475 


8527 








4175 


4185 


4193 


. 4299 


4303 


5395 


5397 


5401 


5403 


5419 


5527 


5541 


5559 


5565 


5568 


2645 


2647 


2666 


2568 


271 1 


2824 


2854 


3178 


3184 


3277 
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3296 




3297 


3380 


3394 


3408 


34 1 8 


3603 


36 10 


3648 


3957 


397 1 


4023 




4029 




4052 


4054 


5253 


526 1 


5265 


53 1 1 


5323 


5333 


5340 


5742 


5784 




5928 




5983 


6190 


6544 


6616 


6623 


7330 


7357 


7375 


7386 


74 13 


8264 




8526 


























BAD PARITY 


1862 


ft 
























BASIC DIV STEP 


4427 


ft 


4448 


. 4451 




















BWRITE DISP 


1979 


# 


2476 


2482 


2596 


2598 


2631 


2637 


2645 


2647 


2666 


2668 


271 1 




2721 




2731 


2763 


2773 


2793 


2803 


2814 


2824 


2854 


3957 


3971 


4023 




4029 




4052 


4054 


8264. 


8526 
















BYTE DISP 


1996 


ft 


4604 


'4621 


5965 


6668 


6689 














BYTE STEP 


4576 


ft 


5796. 


5798 




















CALL IBP 


4570 


ft 


4591 


4596 


4610 


















CALL LOAD PI 


2002 


ft 


3500 


7147 




















CALL [] 


1892 


ft 


2089 


2101 


2306 


2678 


2688 


3458 


3497 


3499 


3500 


3514 


3538 




3541 




3736 


3739 


3853 


3863 


3868 


3872 


3877 


3880 


3914 


3916 


4020 




4048 




4075 


4084 


4094 


4104 


4127 


4237 


4258 


4313 


4319 


4333 


4337 




4343 




4389 


4413 


4591 


4596 


4600 


4605 


4610 


4619 


4622 


4870 


4880 




4914 




4941 


4999 


5010 


5140 


5182 


5 185 


5190 


5192 


5300 


5302 


5304 




5319 




5320 


5321 


5380 


5388 


5416 


5456 


5461 


5473 


5480 


5487 


5506 




5530 




5534 


5538 


5563 


5566 


5569 


5601 


5603 


5605 


56 1 1 


5729 


5769 




5772 




5776 


5808 


5814 


5839 


5863 


5874 


5889 


5893 


5900 


5910 


5912 




5918 




5932 


5941 


5962 


5977 


5980 


5993 


6008 


6019 


6027 


6030 


6033 




6036 




6044 


6049 


6076 


6111 


6120 


6136 


6148 


6 175 


6186 


6194 


62 1 1 




6237 




6266 


6269 


6274 


6349 


6357 


6367 


6370 


6380 


6393 


6408 


64 15 




6436 




6440 


6508 


6542 


6566 


6666 


6685 


6690 


6742 


6750 


6761 


6985 




7054 




7078 


7081 


7100 


7147 


7177 


7190 


7239 


7269 


7271 


7287 


7291 




7329 




7340 


7355 


7374 


7383 


7412 


7419 


7444 


7632 


7634 


7640 


7656 




7704 




7706 


7723 


7726 


7728 


7730* 


7733 


7736 


7739 


7742 


7745 


7747 




8094 




8101 


8112 


81 18 


8128 


8 132 


8148 


8151 


8164 


8186 


8 195 


82 13 




8236 




8301 


8443 


8454 


8514 


8533 














CHANGE FLAGS 


1912 


ft 


2124 


2125 


2485 


331 1 


3327 


3394 


3408 


3464 


3465 


3468 


3469 




3505 




3526 


3527 


3597 


3609 


3665 


3695 


3699 


37 14 


3720 


3904 


3905 




3906 




3957 


3971 


3988 


3998 


4001 


4031 


4032 


4056 


4 106 


4118 


4 1 28 




4131 




4238 


4273 


4304 


4390 


4539 


4541 


4606 


4623 


4645 


4897 


5167 




5179 




5244 


5532 


6204 


6205 


6803 


7257 


7272 


8472 








CHK PARITY 


1861 


ft 


2176 


2246 


2260 


2269 


2273 


2290 


2301 


23 1 2 


2318 


233 1 


2402 




2434 




2440 


2445 


2448 


2498 


2694 


2994 


3313 


3456 


3480 


3495 


3520' 




3524 




3585 


3602 


3608 


3630 


3647 


3653 


3666 


3724 


3752 


3868 


3870 




3875 




3902 


3914 


3918 


3940 


4018 


4111 


4113 


4216 


4226 


4310 


4332 




4339 




4636 


4664 


4670 


4791 


5050 


5727 


5746 


6 166 


6356 


6406 


6409 




■ 6437 




6713 


6728 


6798 


6915 


7019 


7023 


7027 


703 1 


7035 


7075 


7105 




7 107 




71 14 


7168 


7252 


7294 


74 18 


7465 


75 10 


75 13 


75 15 


7525 


7527 




7619 




7638 


7658 


7723 


7724 


7726 


7727 


7730 


773 1 


7733 


7734 


7736 




7737 




7739 


7740 


7742 


7743 


7745 


7746 


7748 


8090 


8 163 


8349 


8398 




8513 




8520 


8532 


8534 


















CHK PARITY L 


1854 


ft 
























CHK PARITY R 


1858 


ft 
























CLEANUP DISP 


2004 


ft 


8477 






















CLEAR ARXO 


1610 


ft 


2678 


4535 


6079 


6120 


6246 


6252 












CLEAR CONTINUE 


1901 


ft 
























CLEAR EXECUTE 


1902 


ft 
























CLEAR RUN 


1903 


ft 
























CLEAR [30 


1609 


ft 


2678 


4257 


4535 


6056 


6072 


6079 


6120 


6246 


6252 






CLR FPD 


1921 


# 


3597 


3714 


3720 


4106 


4606 . 


4623 


6205 










CLR 10 BUSY 


1907 


ft 


7373 


741 1 





















*C1 [4,31 1 ] 


MICRO 31(254) 




KS10 


MICROCODE 


V123, 1 


MARCH, 1982 


SEAN KEENAN, DON 


DOSSA 


Page 














Cross 


Reference 


L i st i ng 












CLR 10 LATCH 


1908 


ff 


7458 


7466 


7470 


7473 


7482 


7488 


7497 


7502 








CLRCSH 


1898 


ff 


7179 


7180 


7183 


















DFADd 


5412 


ff 


5423 






















DISMISS 


2001 


ff 


3499 


3514 




















DIV 


1876 


ff 


4448 


4451 


4452 


4499 


5298 


5310 


5318 


5322 


5415 


5417 


5418 


DIV DISP 


1995 


n 
























DIV STEP 


4428 


# 


4451 






















DONE 


1987 


n 


2135 


2139 


3233 


3360 


3365 


4117 


4592 


7149 


7420 






DPB SCAD 


4779 


ff 


4784 


4785 


4786 


4787 


4788 














EA MODE DISP 


1976 


ff 


2186 


2252 


3461 ' 


4643 


4646 


5738 


6714 


7454 








END BLT 


1944 


ff 


5033 


5057 




















END MAP 


1945 


ff 


8254 






















END STATE 


1942 


ff 


5033 


5057 


5832 


5904 


5927 


6077 


6205 


6209 


6271 


6543 


8254 




848 1 




8499 


8500 


8523 


















EXIT 


1 98 1 


ff 


2476 


2482 


2596 


2598 


2631 


2637 


2645 


2647 


2666 


2668 


271 1 




2721* 




2731 


2763 


2773 


2793 


2803 


28 14 


2824 


2854 


4023 


4029 


4052 




4054 




8264 


8526 




















EXP TEST 


1933 


ff 


5307 


5323 


5653 


















FETCH 


1713 


ff 


2135 


2136 


2138 


2139 


2158 


2198 


2204 


2312 


2337 


2927 


3233 




3245 




3360 


3361 


3364 


3365 


3432 


3433 


3459 


3501 


3616 


4117 


4592 




4601 




7149 


7420 


7651 


















FE -1 


1833 


ff 
























FE -12. 


1831 




2931 






















FE -2 


1830 


# 
























FE -FE 


1817 




4708 


4802 




















FE -FE+200 


1844 


ff 


5171 


5172 




















FE -FE+S# 


1820 


# 


4713 






















FE -FE-1 


1818 


ff 


2873 


2908 




















FE -S-10 


1827 


# 


47 17 


4783 






\ . 














FE -S-20 


1826 


ff 
























FE « ' 


1832 


ff 
























FE EXP 


1839 


ff 


'2304 


2319 


5106 


5387 
















FE_FE+1 


1834 


ff 


2876 


2890 


291 1 


5186 


5302 


5304 


5320 


5321 


534 1 


5346 


5566 




5569 




5603 


5605 


5651 


5659 
















FE FE+10 


1836 


ff 


4715 


4720 


4796 


4804 
















FE FE+2 


1835 


ff 


5143 






















FE FE+4 


1838 


ff 


2946 






















FE FE+P 


1842 


ff 


6336 






















FE FE+S# 


1845 


ff 


5485 


5496 


6469 


















FE FE+SC 


1821 


ff 


6468 






















FE FE-1 


1837 




5298 


5310 


5318 


5322 


5402 


5404 


5559 


5581 


5598 


5626 




FE FE-19 


1819 


ff 
























FE FE-200 


1843 


ff 


5145 






















FE FE . AND . Sff 


1822 


ff 


4603 


4800 


5964 


6342 


6467 


6669 












FE P 


1823 


ff 


4599 


4799 


6466 


6666 


6706 














FE S 


1824 


ff 








5214 
















FE Sff 


1828 


ff 


2931 


5208 


5212 


5215 


6335 












FE S0-FE 


1829 


ff 


5545 






















FE S+2 


1825 


ff 


5795 






















FE SC+EXP 


1840 


ff 


5134 


5229 


5468 


















FE SC-EXP 


'1841 


ff 


5165 


5519 




















FIRST DIV STEP 


4429 


ff 


4448 






















FIX [] SIGN 


1623 


ff 


3294 


4003 


4027 


4050 


6547 


7048 












FL NO DIVIDE 


1937 


ff 


5167 


5179 


5532 


















FL-EXIT 


1983 


ff 


5261 


5265 


531 1 


5333 
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FM WRITE 


1630 


ft 


2067 


2075 


2077 


2078 


2080 


2081 


2083 


2084 


2090 


2092 


2396 




2428 




2679 


2929 


2950 


2985 


301 8 


3024 


3207 


3296 


3336 


3339 


3342 




3345 




3348 


335 1 


• 3354 


3357 


3570 


3617 


3619 


3682 


3687 


37 1 5 


4078 




4086 




4095 


4097 


4 108 


4 109 


4110 


4112 


41 14 


4336 


4352 


4353 


4354 




4356 




4359 


4378 


4380 


4383 


45 10 


4515 


4520 


4526 


4527 


4528 


4589 




4606 




4848 


486 1 


4871 


488 1 


49 1 3 


4964 


5009 


5071 


5257 


5263 


5575 




5583 




5619 t 


5620 


562 1 


5628 


5737 


5750 


5753 


5778 


5783 


5800 


5824 




5844 




5845 ' 


585 1 


586 1 


5864 


587 1 


5872 


5873 


5888 


5899 


5901 


5903 




5919 




5935 


5937 


5944 


5958 


597 1 


5978 


5989 


6020 


6037 


6039 


6074 




6075 




6087 


6088 


6095 


6097 


6 1 10 


6112 


6121 


6124 


6156 


6162 


6168 




6173 




6174 


6 1 78 


6187 


6193 


6200 


6201 


6202 


6361 


6392 


642 1 


6494 




6510 




6540 


6636 


6664 


6705 


6729 


6743 


6746 


6751 


6758 


6763 


6770 




6780 




6882 


6967 


7020 


7024 


7028 


7032 


7036 


7050 


7061 


7082 


7085 




71 15 




71 16 


7200 


7201 


734 1 ' 


7449 


7483 


7489 


7491 


7529 


763 1 


7703 




7718 




7728 


7986 


7990 


7996 


7997 


7999 


8000 


8007 


8017 


8019 


802 1 




8023 




8027 


8028 


8 152 


8 154 


8 1 74 


8441 












FORCE EXEC 


1693 


ft. 


7253 


7267 


7301 


















GEN 17-FE 


1848 


ft 


4685 






















GEN MSK * [ ] 


1626 


ft 


4719 


4722 


4795 


4798 


5798 














HALT [ 3 


2003 


ft 


2098 


2155 


2 1 73 


2424 


3487 


7266 


7298 


8466 








HOLD LEFT 


1852 


ft 


2136 


2138 


2183 


2 1 96 


2 197 


2203 


2208 


2223 


2224 


2236 


2247 




2270 




2598 


2629 


2637 


2659 


266 1 


3245 


3361 


3364 


3432 


3433 


3434 




3443 




3446 


3459 


347 1 


350 1 


3525 


3539 


3667 


3726 


3738 


3742 


3879 




3891 




3896 


3925 


394 1 


3992 


4635 


4665 


4874 


4933 


4956 


5008 


501 3 




5033 




5037 


5042 


5057 


5060 


5070 


5142 


5405 


5740 


5743 


5746 


5787 




58 13 




5816.. 


5832 


5838 


5867 


5886 


5892 


5900 


5904 


5915 


5927 


593 1 




5938 




5957 


5985 


6062 


6077 


6115 


6150 


6167 


6194 


6205 


6209 


6265 




6271 




6318 


6375 


6379 


64 1 4 


6439 


6480 


6485 


6543 


6662 


6704 


67 1 3 




6862 




6888 


6902 


6949 


6963 


6965 


6996 


7076 


7081 


7106 


7 140 


7142 




7144 




7146 


7 1 58 


72 18 


72 19 


7220 


7221 


7222 


7223 


7224 


7246 


7316 




7442 




7463 


7463 


7639 


7655 


7725 


7732 


7735 


7738 


7741 


7744 


7989 




8221 




8254 


8262 


8475 


848 1 


8487 


8489 


8491 


8493 


8495 


8497 


8499 




8500 




8501 


8523 


8539 


















HOLD RIGHT 


1856 


ft 


2327 


2329 


2342 


2364 


2365 


2596 


2631 


2635 


2652 


2654 


2678 




3021 




3023 


3294 


3436 


3445 


3448 


3450 


3451 


3452 


3485 


3490 


3493 




3513 




3534 


3547 


3678 


3826 


3828 


3830 


3832 


3834 


3836 


3838 


3840 




3848 




3862 


3872 


3922 


3938 


4003 


4004 


4005 


4027 


4050 


4257 


4296 




4358 




4412 


4535 


47 1 2 


4847 


4855 


4918 


4963 


5001 


5005 


5 107 


5 108 




5111 




5112 


5 1 36 


5 1 37 


5 1 69 


5 1 70 


5230 


5231 


5307 


5323 


• 5426 


5427 




5434 




5450 


5572 


5607 


5637 


5638 


5653 


5733 


5755 


5982 


5987 


6056 




6072 




6073 


6079 


6118 


6 1 20 


6 1 27 


6133 


6142 


6161 


6213 


6216 


622 1 




6246 




6252 


6323 


64 1 7 


64 19 


6489 


6493 


6547 


6589 


6593 


6597 


6601 




6605 




6609 


6625 


6723 


6735 


6806 


6815 


6816 


6817 


6821 


6822 


6823 




6824 




6829 


6830 


683 1 


6834 


6835 


6836 


6837 


6838 


6839 


6840 


684 1 




6856 




6896 


6899 


6920 


6925 


6935 


6940 


6947 


6952 


6971 


6972 


6980 




6987 




7015 


7037 


7048 


7 132 


7 1 34 


7136 


7138 


7270 


7472 


75 1 7 


759 1 




7593 




7595 


7597 


7599 


7601 


7603 


7605 


7982 


7985 


8036 


8040 


8043 




8048 




8181 


8200 


8228 


8232 


8253 


8257 


8260 


8271 


8317 


84 16 


842 1 




8426 




8432 


8446 


8509 


















IBP DP 


4567 


ft 


4591 


4596 


46 10 


5848 


6658 


6701 


6774 










IBP SCAD 


4568 


ft 


4591 


4596 


46 10 


5848 


6658 


6701 












IBP SPEC 


4569 


ft 


4591 


4596 


4610 


















INH CRY 18 


1864 


ft 


3417 


3587 


3634 


3663 


3683 


3688 


4929 


5007 








INST DISP 


1980 


tt 


2261 


2265 


2274 


2279 


2287 


2308 


2314 


2338 


2343 






INTERRUPT TRAP 


1993 


ft 
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; Cross Reference Listing 



JFCL FLAGS 


1930 


n 


3505 






















JUMP DISP 


1986 


n 


3380 


3394 


3408 


3418 
















JUMPA 


1988 


# 


3361 


3364 


3432 


3433 


3459 


3501 












LDB SCAD 


4681 




4690 


4691 


4692 


4693 


4694 














LEAVE USER 


1928 




2124 


3905 




















LOAD AC BLOCKS 


1896 




2070 


* 6936 


6953 


















LOAD BYTE EA 


1887 


# 


4599 


4618 


4666 


5734 


5746 


6665 












LOAD DST EA 


1890 




6702 


6704 


6713 


















LOAD FE 


1770 




2286 


2304 


2319 


2873 


2876 


2880 


2890 


2892 


2908 


291 1 


2914 




2919 




2931 


2946 


2992 . 


4599 


4603 


4615 


4708 


4713 


4715 


4717 


4720 




4783 




4796 


4799 


4800 


4802 


4804 


5106 


5134 


5143 


5145 


5165 


5171 




5172 




5186 


5208 


5212 


5214 


5215 


5229 


5298 


5302 


5304 


5310 


5318 




5320 




5321. 


5322 


5341 


5346 


5387 


5402 


5404 


5468 


5485 


5496 


5519 




5545 




5559 


5566 


5569 


5581 


5598 


5603 


5605 


5626 


5651 


5659 


5795 




5796 




5798 


5964 


6335 • 


6336 


6342 


6466 


6467 


6468 


6469 


6666 


6669 




6688 




6706 






















LOAD FLAGS 


1932 




2125 


3464 


3468 


3526 


3904 


7257 


7272 


8472 








LOAD IND EA 


1888 




2248 






















LOAD INST 


1885 


# 


2177 


3562 


6799 


7659 










) 






LOAD INST EA 


1886 


ft 


3457 


3481 


3496 


7461 
















LOAD IR 


1881 




5733 






















LOAD PAGE TABLE 


1895 


# 


7174 


8280 




















LOAD PCU 


1926 




3906 






















LOAD PI 


1899 


# 


3515 


7160 


7235 


7712 
















LOAD PXCT 


1893 


# 


3567 






















LOAD SC 


1769 




2082 


2092 


2285 


2304 


2319 


2335 


2896 


2898 


2974 


2975 


2976 




2978 




2982 


2992 


3001 


3004 


3008 


3015 


3046 


3047 


3048 


3050 


3054 




4018 




4046 


4083 


4103 


4123 


4149 


"4161 


4167 


4175 


4185 


4193 


4236 




4333 




4341 


4448 


4451 


4491 


4837 


4840 


4853 


4859 


4864 


4877 


4893 




4938 




4953 


4959 


5100 


5104 


5105 


5114 


51 16 


5138 


5185 


5219 


5222 




5227 




5245 


5246 


5247 


5249 


5252 


5256 


5366 


5376 


5386 


5420 


5423 




5430 




5445 


5448 


5456 


5460 


5463 


5473 


5479 


5534 


5535 


6109 


6138 




6277 




6279 


6282 


6286 


6288 


6459 


6465 


6471 


6476 


6483 


6939 


6943 




6957 




6959 


6975 


6977 


6985 


6992 


6994 


7184 


7197 


7204 


7392 


7399 




7424 




7430 


7478 


7485 


7494 


7498 


8050 


8053 


8093 


8107 


81 10 


8133 




8136 




8243 


8249 




















LOAD SRC EA 


1889 


























LOAD VMA 


1692 




2068 


2087 


2091 


2135 


2135 


2136 


2138 


2139 


2139 


2157 


2183 




2198 




2204 


2210 


2214 


2237 


2241 


2250 


2270 


2312 


2322 


2325 


2337 




2691 




2695 


2696 


2927 


3233 


3233 


3245 


3360 


3360 


3361 


3364 


3365 




3365 




3432 


3433 


3434 


3439 


3443 


3446 


3459 


3472 


3475 


3501 


3516 




3522 




3537 


3539 


3539. 


3548 


3588 


3615 


3625 


3637 


3642 


3658 


3721 




3749 




3857 


3858 


3858 


3865 


3866 


3866 


3879 


3879 


3898 


3899 


3925 




3925 




3934 


3941 


3942 


4117 


41 17 


4592 


4592 


4601 


4648 


4652 


4656 




4660 




4996 


• 5017 


5023 


5037 


5038 


5042 


5043 


5060 


5061 


5741 


5743 




5744 




5767 


5915 


6164 


6191 


6236 


6242 


6249 


6265 


6270 


6326 


6404 




6446 




6561 


6708 


6709 


6710 


6711 


6787 


6795 


6912 


7076 


7101 


7106 




7106 




7149 


.7149 


7167- 


7173 


7236 


7251 


7251 


7251 


7252 


7293 


7293 




7301 




7382 


7417 


7420 


7420 


7442 


7464 


7523 


7615 


7623 


7633 


7636 




7636 




7639 


7639 


7650 


7706 


7722 


7722 


7725 


7725 


7732 


7732 


7735 




7735 




7738 


7738 


7741 


7741 


7744 


7744 


7751 


8033 


8073 


8074 


8074 




8081 




8082 


8082 


8086 


8088 


8157 


8159 


8272 


8288 


8344 


8346 


' 8375 




8376 




8390 


8392 


8456 


8462 


8510 


851 1 


851 1 


8536 


8536 


8539 


8539 


LSH 


1869 


























LSHC 


1872 




2978 


2982 


4480 


4483 

















; K5 10. Met 4, 311] 



LUUO 

MEM CYCLE 



MEM READ 



MEM WAIT 



MEM WRITE 



MICRO 


31 (254) 




KS10 


MICROluOE 


V123, 1 


MARCH, 1982 


SEAN KEENAN, DON 


DOSSA 


Page 












Cross 


Reference 


Listing 












1990 




5695 


5697 


5699 


5701 


5703 


5705 


5707 


5709 


571 1 






1689 




2068 


2087 


2091 


2135 


2135 


2135 


2 136 


2 136 


2 138 


2138 


2139 


2139 




2139 


2157 


2158 


2175 


2183 


2198 


2198 


2204 


2204 


2209 


2210 


2214 




2215 


2237 


2238 


2241 


2242 


2246 


2250 


2259 


2268 


2270 


2271 


2272 




2300 


231 1 


2312 


2312 


2322 


2323 


2325 


2326 


2330 


2337 


2337 


2401 




2433 


2439 


2444 


• 2447 


2496 


2497 


2691 


2692 


2694 


2695 


2696 


2698 




2927 . 


2927 


3233 


3233 


3233 


3245 


3245 


3312 


3313 


3360 


3360 


3360 




3361 


3361 


3364 


3364 


3365 


3365 


3365 


3432 


3432 


3433 


3433 


3434 




3434 


3439 


3439- 


3443 


3443 


3446 


3446 


3455 


3459 


3459 


3472 


3473 




3475 


3476 


3479 


3494 


3501 


3501 


3516 


3520 


3522 


3523 


3524 


3537 




3537 


3539 


3539 


3540 


3543 


3548 


3548 


3584 


3588 


3589 


3601 


3607 




3615 


3616 


3625 


3626 


3629 


3637 


3639 


3642 


3644 


3646 


3652 


3658 




3660 


3666 


3721 


3722 


3723 


3733 


3749 


3750 


3751 


3857 


3858 


3858 




3865 


3866 


3866 


3867 


3869 


3874 


3879 


3879 


3879 


3898 


3899 


3900 




3901 


3913 


3917 


3925 


3925 


3925 


3934 


3935 


3939 


3941 


3942 


3943 




4117 


4117 


41 17 


4592 


4592 


4592 


4601 


4601 


4629 


4635 


4636 


4648 




4649 


4652 


4653 


4656 


4657 


4660 


4661 


4663 


4669 


4790 


4791 


4996 




4997 


5017 


5018' 


5023 


5024 


5026 


5037 


5038 


5040 


5042 


5043 


5045 




5049 


5052 


5060 


5061 


5063 


5727 


5741 


5743 


5743 


5744 


5744 


5746 




5767 


5768 


5915 


5915 


6164 


6165 


6166 


6191 


6192 


6236 


6242 


6249 




6265 


6265 


6270 


6270 


6326 


6326 


6358 


6360 


6404 


6404 


6406 


6409 




6437 


6446 


6446 


6561 


6562 


6708 


6708 


6709 


6709 


6710 


6710 


671 1. 




671 1 


6713 


6727 


6783 


6786 


6787 


6791 


6794 


6795 


6798 


6912 


6913 




6914 


7018 


7019 


7022 


7023 


7026 


7027 


7030 


7031 


7034 


7035 


7073 




7074 


7076 


7077 


7101 


7102 


7105 


7106 


7106 


7106 


7107 


71 13 


7114 




7149 


7149 


7149 


7167 


7167 


7168 


7173 


7236 


7240 


7251 


7251 


7251 




7252 


7252 


7267 


7288 


7293 


7293 


7294 


7301 


7302 


7382 


7384 


7417 




7418 


7420 


7420 


7420 


7442 


7443 


7464 


7464 


7465 


7510 


7513 


7515 




7523 


7525 


7527 


7615 


7616 


7618 


7623 


7624 


7633 


7636 


7636 


7638 




7639 


7639 


7639 


7650 


7651 


7657 


7706 


7722 


7722 


7723 


7724 


7725 




7725 


7725 


7726 


7727 


7730 


773 1 


7732 


7732 


7732 


7733 


7734 


7735 




7735 


7735 


7736 


7737 


7738 


7738 


7738 


7739 


7740 


7741 


7741 


7741 




7742 


7743 


7744 


7744 


7744 


7745 


7746 


7748 


7751 


8033 


8073 


8074 




8074 


8081 


8082 


8082 


8086 


8087 


8088 


8089 


8131 


8157 


8158 


8159 




8162 


8235 


8272 


' 8288 


8344 


8345 


8346 


8348 


8375 


8376 


8377 


8390 




839 1 


8392 


8397 


8456 


8462 


8510 


85 1 1 


851 1 


8512 


8519 


8532 


8534 




8536 


8536 


8539 


8539 


8539 














1717 




2175 


2246 


2259 


2268 


2272 


2300 


231 1 


2330 


3455 


3479 


3494 


3520 




.3524 


3584 


3629 


3666 


3751 


3901 


4663 


4669 


5049 


5727 


5746 


6166 




6409 


6437 


6713 


6727 


6783 


6791 


6798 


6914 


7019 


7023 


7027 


7031 




7035 


7074 


7114 


7240 


7252 


7288 


7294 


7384 


7465 


7510 


7513 


7515 




7618 


7657 


8089 


8162 


8348 


8397 












1716 


# 


2175 


2246 


2259 


2268 


2272 


2300 


231 1 


2330 


2401 


2433 


2439 


2444 




2447 


2497 


2694 


3313 


3455 


3479 


3494 


3520 


3524 


3584 


3601 


3607 




3629 


3646 


3652 


3666 


3723 


3751 


3867 


3869 


3874 


3901 


3913 


3917 




3939 


4636 


4663 


46S9 


4791 


5026 


5049 


5052 


5727 


5746 


6166 


6360 




6406 


6409 


6437 


6713 


6727 


6783 


6791 


6798 


6914 


7019 


7023 


7027 




7031 


7035 


7074 


7105 


7107 


7114 


7168 


7240 


7252 


7288 


7294 


7384 




7418 


7465 


7510 


7513 


7515 


7525 


7527 


7618 


7638 


7657 


7723 


7724 




7726 


7727 


7730 


7731 


7733 


7734 


7736 


7737 


7739 


7740 


7742 


7743 




7745 


7746 


7748 


8089 


8162 


8348 


8397 


8512 


8519 


8532 


8534 


1718 




2401 


2433 


2439 


2444 


2447 


2497 


2694 


3313 


3601 


3607 


3646 


3652 




3723 


3867 


3869 


3874 


3913 


3917 


3939 


4636 


4791 


5026 


5052 


6360 




6406 


7105 


7107 


7168 


7418 


7525 


7527 


7638 


7723 


7724 


7726 


7727 




7730 


7731 


7733 


7734 


7736 


7737 


7739 


7740 


7742 


7743 


7745 



KS10.MC1[4,31 1] MICRO 31(254) 





7746 




7-748 


MEM Q 


1725 


ft 


5027 


MEM~[ ] 


1724 


ft 


2402 




3653 




3724 




7107 




7168 




7733 




7734 




8520 




8532 


MUL DISP 


1994 


n 


4167 


MUL FINAL 


4145 


# 


4171 


MUL STEP 


4 144 


# 


4 167 


NEXT INST 


1974 




2429 




5263 




5622 


NEXT INST FETCH 


1975 


# 


2 135 




3365 




3432 


NFXT f 1 PHY^TCAI WRI 


1747 




3879 


NO DIVTDF 


1936 




4238 


NORM DISP 


2000 


ft 


5117 




5344 




5495 




5656 






ONES 


1875 


ft 


4719 


PAGE FAIL TRAP 


1991 


ft 


8 105 


PI DISP 


1999 


# 




PXCT BLT DEST 


1701 


ft 


5019 


PXCT BLT SRC 


1705 


ft 


4998 


PXCT BYTE DATA 


1703 


# 


4650 


PXCT BYTE PTR EA 


1702 


ft 


4658 


PXCT DATA 


1700 


n 


2228 


PXCT EA 


1699 


ft 


2237 


PXCT EXTEND EA 


1706 


ft 


5743 


PXCT STACK WORD 


1704 


ft 


3590 


Q-C 3 


1574 


# 


4327 


Q. AND .NOT . [ ] 


1575 


ft 




# 


1590 


# 


4872 


0~- 1 


1582 


ft 




-AC[] 


1583 


H 


4509 


o -o 


1584 


ft 


4297 


-[ ] 


1581 


ft 


5524 


Q . NOT. AC [ ] 


1580 


# 


4513 


q"~.not.o 


1589 


ft 


5587 





1591 




2888 




5241 




5534 


XWD [ ] 


1592 


# 




AC 


1585 


ft 


4018 


0"~AC[] 


1586 


# 


2290 


Q AC[ ] . AND . MASK 


1587 


ft 




ACN . AND. [1 


1588 


# 


4310 


0_MEM 


1735 




5050 


Q 0* . 5 


1597 


ft 


4126 


0*2 


1598 


# 




Q Q+.25 


1593 


# 


5400 


0+1 


1594 


# 




O+AC 


1596 




4892 


0_0+E3 


1603 





4335 


0-1 


1595 


# 


4932 


0-WORK[ ] 


1682 




4875 





KS10 


MICROCODE 


V123, 1 


MARCH 






Cross 


Reference 


L i st 


851 2 


8519 


8532 


8534 




5053 


6360 








2434 


2440 


2445 


2448 


2498 


3868 


3870 


3875 


3914 


3918 


74 18 


7525 


7527 


7638, 


7723 


7736 


7737 


7739 


7740 


7742 


8534 










4175 


4185 


4193 


5397 


5423 


4179 


4189 


4197 






4175 


4185 


4193 






2950 


2996 


3024 


3336 


3618 


7990 










2136 


2138 


2139 


2199 


2205 


3433 


3459 


3501 


4117 


4592 


3925 


7639 


7725 


7732 


7735 


4273 


4304 


4390 


4897 




5146 


5223 


5298 


5300 


53 10 


5549 


5550 


5560 


5562 


5582 


4722 


4795 


4798 


5798 




8124 


8 183 


8 192 


8207 


8306 


5025 


5039 


x 5044 






5062 








4654 


6708 


6709 






4662 










2270 


2322 


2325 


2693 


2697 


2242 


3477 








5744 




* 






3627 


3659 








4916 










4514 


4519 








4374 


4415 


4416 


4433 


5299 


4518 










4718 


4794 


51 14 


5185 


5196 


5796 










4216 










2994 


4111 


4113 


4226 


6356 


4332 


4339 








7515 










4 160 


4333 


5449 


5539 




5547 










4367 


5382 


5390- 


5491 


5494 



, 1' 

ing 



82 -- 


SEAN KEENAN, DON 


DOSSA 


Page 


2694 
3940 
7724 
7743 


3313 
4636 
7726 
7745 


3602 
4791 
7727 
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3402 


341 1 


5670 




3384 


3398 


3412 


5666 




3386 


3400 


5668 






3389 


3403 


5671 







; KS10.MC1[4,311] 



TON 
TZ- 
TZA 
TZE 
TZN 
W 

W TEST 

WORD-TNE 

WORD-TNN 

(U) MEM 



(U) MICROCODE OPTIONS 
OPT 

(U) MICROCODE VERSION 
UCV 

(D) MODE 



MICRO 31(254) 



3080 ft 


3141 


3142 


3069 ft 


3100 


3101 


3071 ft 


3104 


3105 


3070 ft 


3102 


3103 


3072 ft 


3106 


3107 


2015 ft 


2456 


2461 


2566 


2571 


2576 


2044 ft 


2491 


4582 


3065 ft 


7322 




3068 ft 


7323 




908 ft 


2068 


2087 


2139 


2139 


2157 


2214 


2215 


2228 


2271 


2272 


2300 


2337 


2401 


2433 


2631 


2637 


2645 


271 1 


2721 


2731 


3233 


3233 


3233 


3364 


3364 


3365 


3439 


3443 


3443 


3479 


3494 


3501 


3539 


3540 


3543 


3625 


3626 


3629 


3721 


3722 


3723 


3866 


3866 


3866 


3901 


3913 


3917 


3957 


397 1 


4023 


4601 


4601 


4629 


4661 


4663 


4669 


5037 


5038 


5040 


5265 


531 1 


5333 


5915 


5915 


6164 


6270 


6270 


6326 


6446 


6561 


6562 


6727 


6783 


6786 


7019 


7022 


7023 


7077 


7101 


7102 


7149 


7167 


7 167 


7252 


7267 


7288 


74 1 7 


74 1 7 


74 18 


7513 


75 15 


7523 


7636 


7636 


7636 


7722 


7722 


7723 


7732 


7732 


7733 


7739 


7740 


7741 


7748 


7751 


8033 


8087 


8088 


8089 


8344 


8345 


8346 


8462 


8510 


851 1 


8536 


8539 


8539 


1 182 ft 






1 183 ft 


6854 




1 184 ft 






1 185 ft 


6855 




1245 ft 







KS10 MICROCODE V123, 
Cross Referei 

3150 3151 

3109 3110 

3113 3114 

3111 3112 

3115 3116 

2466 2471 2519 

2581 2586 2683 

4584 



2091 2135 2135 

2158 2175 2183 

2237 2238 2241 

2311 2312 2312 

2439 2444 2447 

2647 2666 2668 

2763 2773 2793 

3245 3245 3312 

3365 3365 3432 

3446 3446 3455 

3501 3516 3520 

3548 3548 3584 

3637 3639 3642 

3733 3749 3750 

3867 3869 3874 

3925 3925 3925 

4029 4052 4054 

4635 4636 4648 

4790 4791 4996 

5042 5043 5045 

5727 5741 5743 

6165 6166 6191 

6326 6358 6360 

6708 6708 6709 

6787 6791 6794 

7026 7027 7030 

7105 7106 7106 

7168 7173 7236 

7293 7293 7293 

7420 7420 7420 

7523 7525 7527 

7638 7639 7639 

7724 7725 7725 

7734 7735 7735 

7741 7741 7742 

8073 8074 8074 

8131 8157 8158 

8348 8375 8376 

8511 8511 8512 
8539 



1 MARCH, 1982 -- SEAN KE 
ce Listing 



2524 


2529 


2534 


2751 


2752 




2135 


2136 


2136 


2198 


2198 


2204 


2242 


2246 


2250 


2322 


2323 


2325 


2476 


2482 


2496 


2691 


2692 


2694 


2803 


2814 


2824 


3313 


3360 


3360 


3432 


3433 


3433 


3459 


3459 


3472 


3522 


3523 


3524 


3588 


3589 


3601 


3644 


3646 


3652 


3751 


3857 


3858 


3879 


3879 


3879 


3934 


3935 


3939 


4117 


4117 


4117 


4649 


4652 


4653 


4997 


5017 


5018 


5049 


5052 


5060 


5743 


5744 


5744 


6192 


6236 


6242 


6404 


6404 


6406 


6709 


6710 


6710 


6795 


6798 


6912 


7031 


7034 


7035 


7106 


7107 


71 13 


7240 


7251 


7251 


7294 


7301 


7302 


7442 


7443 


7464 


7615 


7616 


7618 


7639 


7650 


7651 


7725 


7726 


7727 


7735 


7736 


7737 


7743 


7744 


7744 


8074 


8081 


8082 


8159 


8162 


8235 


8377 


8390 


8391 


8519 


8526 


8532 



j DON DOSSA Page 291 



2539 


2544 


2561 


2138 


2138 


2139 


2204 


2209 


2210 


2259 


2268 


2270 


2326 


2330 


2337 


2497 


2596 


2598 


2695 


2696 


2698 


2854 


2927 


2927 


3360 


3361 


3361 


3434 


3434 


3439 


3473 


3475 


3476 


3537 


3537 


3539 


3607 


3615 


3616 


3658 


3660 


3666 


3858 


3858 


3865 


3898 


3899 


3900 


3941 


3942 


3943 


4592 


4592 


4592 


4656 


4657 


4660 


5023 


5024 


5026 


5061 


5063 


5261 


5746 


5767 


5768 


6249 


6265 


6265 


6409 


6437 


6446 


671 1 


671 1 


6713 


6913 


6914 


7018 


7073 


7074 


7076 


7 1 14 


7 149 


7149 


7251 


7251 


7252 


7382 


7382 


7384 


7464 


7465 


7510 


7623 


7624 


7633 


7657 


7706 


7722 


7730 


7731 


7732 


7738 


7738 


7738 


7744 


7745 


7746 


8082 


8082 


8086 


8264 


8272 


8288 


8392 


8397 


8456 


8534 


8536 


8536 



KS10.MC1 [4,31 1 ] 



MICRO 31(254) 



KS10 MICROCODE V123, 1 MARCH , 1982 SEAN KEENAN f DON DOSSA 
Cross Reference Listing 



Page* 292 



(u) 


MULTI PREC 




913 ft 


4299 


435 1 


4366 


(u) 


MULTI SHIFT 




• 915 tt 


2880 


2892 


2914 


(u) 


PHYSICAL 




1082 


tt 


3858 


3866 


3879 










7193 




7196 


7237 


725 1 










7639 




7653 


7722 


7725 










8159 




8346 


8376 


8392 


(u) 


PI 


. CLR 




1141 


ft 


7 1 29 






(u) 


PI 


.C01 




1130 


tt 








(u) 


PI 


.C02 




1 131 


tt 








(u) 


PI 


.DIR 




1 140 


ft 


7 135 






(u) 


PI 


. IP1 




1 122 


tt 


73 12 






(u) 


PI 


. IP2 




1 123 


tt 








(u) 


PI 


. IP3 




1 124 


tt 








(u) 


PI 


. IP4 




1 125 


tt 








(u) 


PI 


IPS 




1 126 


tt 








(u) 


PI 


. IP6 




1 127 


tt 








(u) 


PI 


. IP7 




1 128 


tt 








(u) 


PI 


MBZ 




1139 


tt 


7131 






(u) 


PI 


ON 




1 129 


tt 


7 140 


7142 




(u) 


PI 


. REQ 




1142 


ft 


7137 






(u) 


PI 


. SC 1 




1 147 


tt 








(u) 


PI 


SC2 




1148 


tt 








(U) 


PI 


SC3 




1149 


tt 








(u) 


PI 


. SC4 




1 150 


tt 








(u) 


PI 


. SC5 




1151 


tt 








(u) 


PI 


. SC6 




1 152 


ft 








(u) 


PI 


SC7 




1153 


ft 








(u) 


PI 


. TCF 




1 144 


tt 


7145 






(U) 


PI 


TCN 




1 143 


tt 


7143 






(U) 


PI 


TSF 




1145 


tt 


7141 






(u) 
(u) 


PI 
PI 


. TSN 
. ZER 




1 1 46 
1121 


tt 
tt 


7 139 






(U) 


PXCT 




1086 


tt 












BIS-DST- 


EA 


1092 


ft 


6702 


6704 


67 10 






BIS-SRC- 


EA 


1090 


tt 












CURRENT 




1087 
3245 
3616 


tt 


2135 
3360 
4117 


2136 
336 1 
4592 


2138 
3364 
4601 






D1 




1089 
5044 


tt 


2228 


2270 


2322 






D2 




1093 


tt 


3590 


3627 


3659 






E1 




1088 


tt 


2237 


2242 


2248 






E2 




1091 


ft 


4599 


46 18 


4658 


(u) 


RAMADR 




625 ft 












AC# 




626 ft 


2264 


2277 


229 1 










2763 




2773 


2793 


2803 










2923 




2985 


2997 


3018 










3339 




3342 


3345 


3348 










3617 




3619 


3624 


3657 










3986 




3997 


4000 


4017 










4306 




4308 


4350 


4352 










4994 




5006 


5009 


5071 










5365 




5369 


5371 


5375 










5911 




5937 


5973 


6075 










6746 




6770 


7330 


7341 



4369 


4376 


4490 


5362 


5395 


5515 


5526 




2919 


4716 


4721 


4797 


4805 








3899 


3925 


6787 


6795 


7179 


7180 


7183 


7192 


7284 


7293 


7376 


7379 


7415 


7426 


7432 


7636 


7732 


7735 


7738 


7741 


7744 


8074 


8082 


8088 


851 1 


8536 


8539 













6711 6713 



2139 


2158 


2198 


2204 


2312 


2337 


2927 


3233 


3365 


3432 


3433 


3457 


3459 


3481 


3496 


3501 


7149 


7420 


7461 


7651 










2325 


2693 


2697 


3638 


3643 


5019 


5025 


5039 


4650 


4654 


4998 


5062 


6708 


6709 






3477 


3563 














4662 


4666 


5734 


5743 


5744 


5746 


6665 




2428 


2495 


2596 


2598 


2629 


2635 


2721 


2731 


2813 


2844 


2872 


2875 


2889 


2895 


2907 


2910 


3183 


3198 


3201 


3206 


3207 


3277 


3296 


3336 


3351 


3354 


3357 


3380 


3394 


3408 


3416 


3586 


3679 


3682 


3687 


3715 


3735 


3747 


3956 


3970 


4018 


4044 


4046 


4093 


4108 


4215 


4216 


4225 


4523 


4524 


4528 


4606 


4612 


4616 


4892 


4964 


5100 


5133 


5163 


5165 


5228 


5229 


5257 


5263 


5467 


5518 


5619 


5620 


5773 


5864 


5901 


5903 


6107 


6109 


6121 


6130 


6200 


6267 


6421 


6494 


7344 


7358 


7360 


7529 


7626 


7990 







KSIO.Mc t[4,31l3 

AC*# 



RAM 
VMA 



XR# 



(D) READ 



MICRO 


31(254) 




KS10 


MICROCODE 


V123, 1 


MARCH, 1982 -- 


SEAN KEENAN, DON 


D0S5A 


Page 










Cross 


Reference 


L i st i ng 












627 # 


2080 


2081 


2088 


2278 


2290 


2396 


2679 


2688 


2929 


2950 


2994 


3024 


3983 


3995 


4074 


4076 


4078 


4086 


4088 


4095 


4097 


4109 


41 10 


4111 


4112 


4113 


4114 


4226 


4310 


4332 


4336 


4339 


4353 


4354 


4356 


4359 


4378 


4380 


4382 


4383 


4509 


4510 


45 13 


4514 


45 15 


4518 


4519 


4520 


4526 


4527 


5364 


. 5455 


5508 


5510 


55 16 


5575 


5583 


5621 


5628 


5770 


5778 


5788 


5791 


5821 


5824 


5837 


5844 


585 1 


586 1 


5899 


5909 


5929 


5944 


5961 


5976 


5978 


6004 


6007 


6009 


6016 


601 7 


6018 


6020 


6026 


6028 


6031 


6037 


6039 


6067 


6069 


6070 


6074 


608 1 


6082 


6083 


6087 


6088 


6095 


6097 


6102 


6108 


6124 


6135 


6147 


6156 


6162 


6173 


6176 


6173 


6182 


6195 


6201 


6202 


6325 


6356 


636 1 


6366 


6403 


6405 


6509 


6510 


6622 


6629 


6636 


6655 


6657 


6664 


6684 


6705 


6741 


6743 


6749 


6751 


6755 


6758 


6763 
















630 ft 


2090 


2092 


6238 


6243 


6248 


6250 












629 # 


2068 


2176 


2246 


2260 


2269 


2273 


2301 


2312 


2318 


2331 


2402 


2434 


2440 


2445 


2448 


2498 


2694 


33 13 


3456 


3480 


3495 


3516 


3520 


3524 


3585 


3602 


3608 


3630 


3647 


3653 


3666 


3724 


3752 


3868 


3870 


3875 


3902 


3914 


3918 


3940 


4636 


4664 


4670 


4791 


5027 


5050 


5053 


5727 


5746 


6166 


6360 


6406 


6409 


6437 


6713 


6728 


6798 


6915 


7019 


7023 


7027 


7031 


7035 


7075 


7105 


7 107 


7114 


7 168 


7236 


7241 


7252 


7289 


7294 


7385 


7418 


7465 


7510 


7513 


7515 


7525 


7527 


7619 


7633 


7638 


7658 


7706 


7723 


7724 


7726 


7727 


7730 


7731 


7733 


7734 


7736 


7737 


7739 


7740 


7742 


7743 


7745 , 


7746 


7748 


8009 


8033 


8090 


8163 


8349 


8398 


8456 


8462 


8513 


8520 


8532 


8534 










628 # 


2186 


2196 


2208 


2223 


2236 


2252 


346 1 


3463 


347 1 


4643 


4646 


4648 


4656 


5738 


5740 


5743 


6708 


6710 


67 14 


7454 


7455 


7463 




631 


2067 


2075 


2077 


2078 


2083 


2084 


3570 


4589 


4848 


4861 


4866 


4871 


4875 


4876 


4881 


4887 


4913 


4926 


4934 


4939 


4945 


5069 


5737 


5750 


5753 


5783 


5800 


5807 


581 1 


5828 


5840 


5845 


5856 


5860 


5871 


5872 


5873 


5875 


5876 


5877 


5878 


5888 


5895 


5919 


5935 


5942 


5947 


5948 


5955 


5958 


5971 


5989 


5993 


5996 


6000 


61 10 


6112 


6153 


6163 


6168 


6169 


6171 


6174 


6187 


6189 


6193 


6196 


6197 


62 18 


6368 


6369 


6392 


6394 


6430 


6435 


6445 


6507 


65 1 3 


6540 


6544 


6547 


6552 


6553 


6560 


6627 


6634 


6638 


6640 


6729 


6745 


6754 


6760 


6768 


6769 


6772 


6780 


6860 


6882 


6894 


6962 


6967 


7006 


7008 


7010 


7012 


7014 


7020 


7024 


7028 


7032 


7036 


7043 


7050 


7052 


7057 


7061 


7063 


7082 


7085 


7095 


7096 


7099 


7115 


71 16 


7120 


7200 


7201 


7449 


7452 


7457 


7469 


7471 


7483 


7489 


7491 


7631 


7703 


7705 


7710 


77 14 


7718 


7728 


7729 


7747 


7749 


7750 


7752 


7986 


7987 


7996 


7997 


7999 


8000 


8007 


8017 


8019 


8021 


8023 


8027 


8028 


8068 


8071 


8098 


8100 


8 129 


8146 


8149 


8152 


8154 


8168 


8174 


8208 


8212 


8214 


8245 


8285 


8286 


8287 


8293 


8300 


8304 


8441 


8452 


8458 


8467 


847 1 


8483 










1256 # 


2454 


2455 


2457 


2459 


2460 


2462 


2464 


2465 


2467 


2469 


2470 


2472 


2491 


2507 


2508 


2509 


2510 


2512 


2513 


2514 


25 15 


2517 


2518 


2520 


2522 


2523 


2525 


2527 


2528 


2530 


2532 


2533 


2535 


2537 


2538 


2540 


2542 


2543 


2545 


2549 


2550 


2551 


2552 


2554 


2555 


2556 


2557 


2559 


2560 


2562 


2564 


2565 


2567 


2569 


2570 


2572 


2574 


2575 


2577 


2579 


2580 


2582 


2584 


2585 


2587 


2673 


2674 


2704 


2705 


2714 


2715 


2716 


2717 


2724 


2725 


2726 


2727 


2734 


2735 


2736 


2737 


2739 


2740 


2741 


2742 


2749 


2756 


2757 


2758 


2759 


2766 


2767 


2768 


2769 


2776 


2777 


2778 


2779 


2786 


2787 


2788 


2789 


2796 


2797 


2806 


2807 


2808 


2809 


2817 


2818 


2819 


2820 


2827 


2828 


2829 


2830 


2837 


2838 


2839 


2840 


2847 


2848 


2859 


2860 


2861 


2863 


2864 


2865 


3093 


3094 


3095 


3096 


3097 


3098 


3109 


31 10 


3111 


3112 


3113 


31 14 


31 15 


3116 , 


3127 


3128 


3129 


3130 


3131 


3132 


3133 


3134 


3144 


3145 


3146 


3147 


3148 


3149 


3150 


3151 


3266 


3267 


3268 


3269 


3270 


3271 


3272 


3273 


3283 



(U) RSRC 



(U) S# 



(U) SCAD 



1C1 [4,31 1 ] 


MICRO 


31(254) 




KS10 


MICROCODE 


V123, 1 


MARCH, 1982 


SEAN KEENAN, DON 


DOSSA 


Page 












Cross 


Reference 


L i st i ng 














3284 


3285 


3286 


3287 


3288 


3289 


3290 


3300 


3301 


3302 


3303 


3304 




3305 


3306 


3307 


3316 


3317 


3318 


3319 


3320 


3321 


3322 


3323 


3383 




3397 


3554 


3577 


3673 


3949 


3950 


3951 


3952 


3963 


3964 


3965 


3966 




3978 


3979 


401 1 


4012 


4013 


4014 


4036 


4037 


4038 


4039 


4062 


4203 




4204 


4205 


4206 


4208 


4209 


4210 


421 1 


4280 


4581 


4582 


4583 


4584 




4585 


5077 


5078 


5079 


5080 


5081 


5082 


5083 


5085 


5086 


5087 


5088 




5089 


5090 


5091 


5122 


5123 


5124 


5126 


5127 


5128 


5129 


5151 


5152 




5153 


5155 


5156 


5157 


5158 


5201 


5236 


5237 


5351 


5352 


5440 


5501 




5723 
























) CYCLE 


1074 # 


2135 


2136 


2138 


2139 


2158 


2198 


2204 


2209 


2215 


2238 


2242 




2271 


2312 


2323 


2326 


2337 


2927 


3233 


3245 


3360 


3361 


3364 


3365 




3432 


3433 


3434 


3439 


3443 


3446 


3459 


3473 


3476 


3501 


3523 


3543 




3616 


3626 


3660 


3750 


3900 


3943 


4117 


4592 


4601 


4649 


4653 


4657 




4661 


4997 


5063 


5743 


5744 


5768 


5915 


6165 


6192 


6265 


6270 


6326 




6446 


6562 


6708 


6709 


6710 


671 1 


6786 


6794 


6913 


7018 


7022 


7026 




7030 


7034 


7073 


7077 


7113 


7149 


7237 


7251 


7284 


7293 


7302 


7376 




7379 


7420 


7443 


7464 


7616 


7651 


7653 


8074 


8082 


8087 


8158 


8268 




8345 


8377 


8391 


8536 


















ID 


1244 # 


5080 


5081 


5082 


5083 


5088 


5089 


5090 


5091 


5126 


5127 


5128 




5129 


5155 


5156 


5157 


5158 


5201 


5237 














559 # 
























AB 


561 # 


3570 


7449 




















AO 


560 # 
























DO 


567 # 


2666 


59'70 


6085 


7237 


7284 


7376 


7379 


7415 
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2145 
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4294 
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5709 
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6336 


6340 


6342 


6467 


6468 


6469 


6470 


6486 


6669 








SHIFT 


947 .# 


2285 


2975 


2992 


3047 


522? 














SIZE 


948 # 


459 1 


4596 


46 10 


4631 


4717 


4783 


5795 


5848 


5858 


6658 


666 1 




6701 


6703 


6774 




















SETFOV 


1030 # 


5 167 


5 1 79 


5532 


















SETFPD 


1 036 # 


4131 


4645 


6204 


















SETNDV 


103 1 # 


4238 


4273 


4304 


4390 


4897 


5167 


5179 


5532 








SETOV 


1028 # 


403 1 
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4056 


4118 


4238 


4273 


4304 


4390 


4897 
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2898 
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3014 
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4376 


4392 
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5219 
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5403 
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5559 
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558 1 


5598 


5602 


5604 
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780 # 


4448 
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4452 
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74 1 4 


7988 


8223 


8240 


8399 


8414 


8417 


8422 




CRYO 


854 # 


3592 


3635 


3664 


5175 


5299 


5301 


.5303 


5305 








CRY 1 


. 867 # 


3984 


3996 


5615 


6029 


6035 


6048 


6239 


6250 








CRY2 


862 # 


5588 


5648 




















DPO 


863 # 


2305 


2320 


2479 


2657 


2664 


2947 


3019 


3236 


3248 


3339 


335 1 




3681 


3684 


3689 


3855 


4003 


4028 


4050 


4053 


4108 


41 16 


42 17 


4253 




4255 


4260 


4265 


4269 


429 1 


4308 


4320 


4327 


4342 


4361 


4379 


443 1 




4438 


4453 


4894 


5032 


. 5056 


5 102 


5106 


5135 


5165 


5173 


5207 


5229 




5260 


5367 


5469 


55 16 


5520 


553 1 


5544 


5779 


5792 


5809 


5822 


5829 




5847 


5889 


589 1 


59 13 


5930 


5933 


5939 


5979 


6071 


6076 


6113 


6122 




6 1 55 


6 172 


6244 


6294 


6320 


65 1 1 


6541 


6583 


6637 


6756 


69 16 


7048 




8060 


8145 


83 1 9 


8369 # 


















DP 18 


864 # 


2284 


2643 * 


2650 


5752 


5999 


6203 


6292 


6615 


6616 


728 1 


8372 




8382 


8404 






















EXECUTE 


873 # 


7645 






















FPD 


858 # 


4070 


4591 


4596 


4610 


6103 














INT 


860 U 


5036 


5849 


8001 


8178 


8347 


8450 


8481 


8524 








IOLGL 


852 # 


2341 


3444 


3447 


















IOT 


865 #■ 

























^ ^ ^ 



(U) STAT 



It, rf4, 31 1 ] 


MICRO 


31 (254) 




KS10 


MICROCuOE 


V123, 1 


MARCH, 1982 -- 


SEAN KEENAN, DON 


DOSSA 


Page 












Cross 


Reference 


L i st i ng 












UFCL 


866 ft 


3506 






















KERNEL 


857 ft 


3437 


3441 


3442 


3449 


3558 


6781 












LE 


861 ft 


3242 


3254 


3345 


3357 


4287 


4921 


5183 


5507 


6152 


7059 


771 1 


LLE 


853 ft 


7455 






















sc 


872 ft 


2092 


2896 


2898 


2974 


2976 


2978 


2982 


2999 


3008 


3015 


3046 




3048 


3050 


3054 


4149 


4161 


4167 


4 175 


4185 


4193 


4448 


4451 


4491 




4840 


4859 


4959 


51 14 


51 16 


5222 


5246 


5249 


5252 


5256 


5369 


5371 




5420 


5423 


5430 


5448 


6138 


6282 


6288 


6474 


6483 


6943 


' 6959 


6977 




6994 


71&4 


7197 


7399 


7430 


7498 


8053 


8107 


81 10 


8136 


8249 




TRAP CYCLE 


869 ft 


8468 






















TXXX 


868 ft 


3192 






















-1 MS 


876 ft 


5028 


5844 


7097 


8173 
















-CONTINUE 


875 ft 


7647 






















-10 BUSY 


874 ft 


7480 


7486 


7495 


7503 


















737 ft 


2476 


2482 


2596 


2598 


2631 


2637 


2645 


2647 


2666 


2668 


271 1 




2721 


2731 


2763 


2773 


2793 


2803 


28 14 


2824 


2854 


4023 


4029 


4052 




4054 


8264 


8526 




















APR EN 


751 ft 


2073 


6881 


6966 


















APR FLAGS 


749 ft 


6886 


6890 


7067 


















ASHOV 


758 ft 


2898 


3014 


3017 


















CLR 10 BUSY 


741 ft 


7373 


741 1 




















CLR 10 LATCH 


740 ft 


7458 


7466 


7470 


7473 


7482 


7488 


7497 


7502 








CLRCLK 


739 ft 


7044 


7098 


8213 


8453 
















CLRCSH 


750 ft 


7179 


7180 


7183 


















EXPTST 


759 ft 


5307 


5323 


5653 


















FLAGS 


760 ft 


2124 


2125 


2485 


331 1 


3327 


3394 


3408 


3464 


3465 


3468 


3469 




3505 


3526 


3527 


3597 


3609 


3665 


3695 


3699 


3714 


3720 


3904 


3905 




3906 


3957 


3971 


3988 


3998 


4001 


4031 


4032 


4056 


4 106 


4118 


4128 




4131 


4238 


4273 


4304 


4390 


4539 


454 1 


4606 


4623 


4645 


4897 


5167 




5179 


5244 


5532 


6204 


6205 


6803 


7257 


7272 


8472 








INHCRY 18 


755 ft 


3417 


35,87 


3634 


3663 


3683 


3688 


4929 


5007 








LDACBLK 


761 ft 


2070 


6936 


6953 


















LDINST 


762 ft 


2177 


3562 


6799 


7659 
















LDPAGE 


742 ft 


7174 


8280 




















LDPI 


757 ft 


3515 


7160 


7235 


7712 
















LDPXCT 


744 # 


3567 






















LOADIR 


756 ft 


5733 






















LOADXR 


747 # 


2248 


3457 


3481 


3496 


4599 


4618 


4666 


5734 


5746 


6665 


6702 




6704 


6713 


7461 




















MEMCLR 


752 ft 


2068 


3516 


7236 


7633 


7706 


8033 


8456 


8462 








NICOND 


743 # 


2135 


2136 


2138 


2139 


2199 


2205 


2429 


2950 


2996 


3024 


3233 




3245 


3336 


3360 


3361 


3364 


3365 


3432 


3433 


3459 


3501 


3618 


3694 




3701 


4117 


4381 


4384 


4592 


5257 . 


5263 


5622 


7149 


7420 


7990 




PREV 


746 ft 


7617 


7625 




















PXCT OFF 


754 # 


2147 


2150 


2153 


2165 


2168 


2171 


2185 










SWEEP 


753 ft 


7192 


7193 


7196 


















WAIT 


745 # 


2317 






















ft 


738 # 


7641 


7644 


7707 


















"E 


952 ft 
























BLT 


954 # 


5008 






















COMP-DST 


961 ft 


5938 






















CVTDB 


960 # 


5985 






















DST 


957 # 


5900 






















DSTF 


959 ft 


5838 






















EDIT-DST 


963 # 


5957 


6167 


6194 


6413 


6439 


8489 


8493 
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EDIT-S+D 


964 


# 


6379 








EDIT-SRC 


962 


# 


5931 


6318 


6375 


8487 


MAP 


955 




7989 








SIMPLE 


953 


# 










SRC 


956 


# 


5787 


5816 


5886 


8491 


SRC+DST 


958 





5813 


5892 







8495 



8497 



8501 



(U) SWITCH% 



(U) T 



r— 1 1 1 1 

rULL 


077 
O / / 


! Z\JZ 


•4 OA/I 


OA7Q 


OAQQ 


9 i C\ A 


9 i 




*f 1 oo 


*+ 1 oo 




*+ o 3 o 




A QQK 


AARA 




A R 1 R 
*+o 1 o 


4QCC 




COCA 
u3Du 


coco 












O / • *f 




/ i// 


2 1 29 


















T 
J 


Oo z> ft 
























IT 


AQ9 U 

OZJ tC. ft. 

7456 


4308 


432 1 


5 1 06 


5376 


5948 


60 1 8 


6082 


6370 


6507 


6552 


7099 


OT 
O 1 


893 # 


2095 


2320 


2330 


2485 


30 1 8 


3 192 


3277 


33 1 1 


3327 


34 1 7 


3507 




OCQ 4 

uj3 1 




3634 


3659 


3663 


3680 


3685 


3690 


3727 


374 1 


3957 


397 1 




4074 


4076 


4095 


4 1 29* 


4266 


4270 


4320 


4326 


4327 


4328 


4345 


4349 




4370 


4378 


4459 


4524 


454 1 


4599 


46 14 


4685 


4703 


4799 


4843 


4850 




4930 


4946 • 


4950 


50 1 2 


5014 


503 1 


5055 


5 100 


5 1 34 


5 1 75 


5206 


5207 




UwC IV/ 


R949 


5245 


5299 


530 1 


5303 


5305 


5364 


5365 


5368 


5370 


5469 






tkAl 1 
D*+ / 1 




OO 1 


552 1 


5523 


5531 




rcoa 


5778 


o / 13o 






5846 


5850 


59 1 3 


6020 


6034 


6048 


6080 


6083 


6 1 68 


6171 


6203 


6204 




O «£ o<£ 


6238 


6241 


6250 


6275 


6289 


6316 


6336 


6337 


6459 


6466 


6510 




6569 


6659 


6666 


6687 


6701 


6705 


6708 


67 10 


6746 


680 1 


69 1 5 


692 1 




CQ07 




CQ7A 


7216 


724 1 


7245 


7253 


7254 


7255 


7290 


7294 


7296 




7463 


8076 


8084 


8272 


8289 


8384 


8395 


8477 


8507 








AT 


894 # 


2923 


3394 


3408 


3983 


3988 


3995 


3998 


4000 


4890 


4895 


5792 




5822 


5999 


6004 


6029 


6070 


6243 


629 1 


643 1 


6554 


6755 


77 1 1 


8004 




8069 


8072 


8 147 


8 1 50 


8372 


8382 














CT 

D 1 


895 # 


7485 


7RH9 
/ Jv«i 




















T C CT 


1257 # 


2456 


2456 


2457 


2457 


246 1 


246 1 


2462 


2462 


2466 


2466 


2467 




2467 


247 1 


247 1 


2472 


2472 


249 1 


2509 


2509 


25 10 


25 10 


25 1 4 


25 1 4 




25 1 5 


25 1 5 


2519 


25 1 9 


2520 


2520 


2524 


2524 


2525 


2525 


2529 


2529 




2530 


2530 


2534 


2534 


2535 


2535 


2539 


2539 


2540 


2540 


2544 


2544 




2545 


2545 


2551 


2551 


2552 


2552 


2556 


2556 


2557 


2557 


2561 


2561 




2562 


2562 


2566 


2566 


2567 


2567 v 


257 1 


257 1 


2572 


2572 


2576 


2576 




2577 


2577 


258 1 


258 1 


2582 


2582 


2586 


2586 


2587 


2587 


2683 


2706 




2706 


2707 


2707 


27 16 


2716 


27 1 7 


27 17 


2726 


2726 


2727 


2727 


2736 




2736 


2737 


2737 


274 1 


2741 


2742 


2742 


275 1 


275 1 


2752 


2752 


2758 




2758 


2759 


2759 


2768 


2768 


2769 


2769 


2778 


2778 


2779 


2779 


2788 




2788 


2789 


2789 


2798 


2798 


2799 


2799 


2808 


2808 


2809 


2809 


28 19 




2819 


2820 


2820 


2829 


2829 


2830 


2830 


2839 


2839 


2840 


2840 


2849 




2849 


2850 


2850 


3300 


3301 


3302 


3303 


3304 


3305 


3306 


3307 


3316 




3317 


3318 


3319 


3320 


3321 


3322 


3323 


3951 


3951 


3952 


3952 


3965 




3965 


3966 


3966 


4013 


4013 


4014 


4014 


4038 


4038 


4039 


4039 


4205* 




4205 


4206 


4206 


4210 


4210 


421 1 


421 1 


4582 


4584 


5078 


5078 


5079 




5079 


5082 


5082 


5083 


5083 


5086 


5086 


5087 


5087 


5090 


5090 


5091 




5091 


5123 


5123 


5124 


5124 


5128 


5128 


5129 


5129 


5152 


5152 


5153 




' 5153 


5157 


5157 


5158 


5158 


7001 














TRAP 1 


1045 # 
5244 


4031 
5532 


4032 


4056 


41 18 


4238 


4273 


4304 


4390 


4897 


5167 


5179 


TRAP2 


1044 # 


3609 


3665 


3695 


3699 
















VECTOR CYCLE 


1 1 16 # 


7285 






















VMA 


1259 # 


2455 


2460 


2465 


2470 


2508 


2513 


2518 


2523 


2528 


2533 


2538 




2543 


2550 


2555 


2560 


2565 


2570 


2575 


2580 


2585 


2704 


2705 


2715 




2725 


2735 


2740 


2757 


2767 


2777 


2787 


2796 


2797 


2807 


2818 


2828 



n 
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(U) WORK 
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Cross Reference Listing 



SEAN KEENAN, DON DOSSA 





2838 


2847 


2848 


2859 


2860 




3673 


3950 


3964 


40 1 2 


4037 




1 105 # 


2 1 35 


2 1 35 


2136 - 


2 1 36 




2 1 98 


2 1 98 


2204 


2204 


2209 




2271 


2272 


2300 


2311 


2312 




2433 


2439 


2444 


2447 


2496 




2927 


2927 


3233 


3233 


3245 




336 1 


3364 


3364 


3365 


3365 




3446 


3455 


3459 


3459 


3473 




3524 


3537 


3537 


3540 


3540 




3607 


36 1 6 


36 1 6 


3626 


3629 




3666 


3722 


3722 


3723 


37 33 




3874 


3879 


3879 


3900 


390 1 




3943 


4117 


4117 


4592 


4592 




4649 


4653 


4657 


466 1 


4663 




5024 


5024 


5026 


5040 


5040 




5744 


5746 


5768 


59 1 5 


6 165 




6360 


6404 


6404 


6406 


6409 




6713 


6727 


6783 


6786 


679 1 




700 1. 


7AOC 

/ U/iO 


700 7 


/ UoU 


7m i 




7 1 OR 




7 i Dfi 


7 1 07 


7113 




7251 


7252 


7267 


7267 


7288 




7420 


7420 


7443 


7464 


746*5 




76 1 8 


7624 


7624 


7636 


7638 




7724 


7725 


7725 


7726 


7727 




7735 


7736 


7737 


7738 


7738 




7744 


7745 


7746 


7748 


8074 




8290 


8345 


8348 


8377 


839 1 




8539 


8539 










968 # 










ACO 


1009 # 










AC 1 


1010 # 










AC2 


101 1 # 










AC3 


1012 # 










ADtlRPW 


9S7 # 


49 1 3 


4934 






AD OP 


982 # 


4848 


4875 






AD JPTR 


984 # 


4589 


4866 


4928 




AD J0 1 


985 # 


487 1 


4889 






ADUR2 


986 # 


488 1 


4948 






ADUS 


983 # 


486 1 


4876 


4939 




AF*R 


989 # 


2075 


6860 


6882 


6894 


BADWO 


969 # 


8027 








BADW 1 


970 # 


8028 








BDH 


999 # 


6112 


6187 


6 196 


62 18 


BDL 


1000 # 


6110 


6 1 53 


6 193 


6197 


CBR 


979 # 


7008 


7024 


8300 




CMS 


996 # 


5935 


5947 


5948 


5958 


CSTM 


980 # 


701 2 


7032 


8304 




DDIV SGN ' 


1013 # 










DECHI 


1018 # 


2084 


2086 


6241 




DECLO 


1017 # 


2083 


2085 


6232 




DIV 


972 ff 










DVSOR H 


1014 # 










DVSOR L 


1015 # 










EO 


991 # 


5737 


6163 


6435 


6445 



2861 
4204 
2138 
2215 
2312 
2496 
3245 
3432 
3476 
3543 
3639 
3733 
3913 
4601 
4669 
5045 
6166 
6437 
6794 
7034 
7114 
7293 
7510 
7639 
7730 
7739 
8082 
8397 



6962 



2863 
4209 
2138 
2228 
2323 
2497 
3312 
3432 
3479 
3548 
3639 
3750 
3917 
4601 
4790 
5045 
6192 
6446 
6798 
7035 
7149 
7294 
7513 
7639 
7731 
7740 
8087 
851 1 



6967 



2864 

2139 
2238 
2326 
2692 
3312 
3433 
3494 
3548 
3644 
3751 
3925 
4629 
4790 
5049 
6265 
• 6562 
6913 
7073 
7149 
7302 
7515 
7651 
7732 
7741 
8089 
8512 



7987 



2865 

2139 
2242 
2330 
2692 
3313 
3433 
3501 
3584 
3644 
3858 
3925 
4629 
4791 
5052 
6270 
6708 
6914 
7074 
7167 
7382 
7523 
7651 
7732 
7741 
8131 
8519 



3383 

2158 

2246 

2337 

2694 

3360 

3434 

3501 

3589 

3646 

3866 

3935 

4635 

4997 

5063 

6326 

6709 

7018 

7077 

7167 

7384 

7525 

7657 , 

7733 

7742 

8158 

8532 



3397 

2158 
2259 
2337 
2698 
3360 
3439 
3520 
3589 
3652 
3867 
3935 
4635 
5018 
5727 
6358 
6710 
7019 
7102 
7168 
7417 
7527 
7722 
7734 
7743 
8162 
8534 
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3423 

2175 
2268 
2401 
2698 
3361 
3443 
3523 
3601 
3660 
3869 
3939 
4636 
5018 
5743 
6358 
671 1 
7022 
7102 
7240 
7418 
7616 
7723 
7735 
7744 
8235 
8536 



(D) 
(U) 



(U) ft 



MC 1 [ 4 , 3 1 1 ] 


MICRO 


31(254) 




KS10 


MICROCODE 


V123, 1 


MARCH, 1982 


SEAN KEENAN, DON 


DOSSA 


Page 












Cross 


Reference 


Listing 












E1 


992 # 


5750 


5753 


6189 


6368 


6369 


6544 ' 


6547 


6552 


6560 






FILL 


995 # 


5919 


5942 


5955 


6430 


6507 


6513 


6627 


6729 








FSIG 


997 # 


6392 


6394 




















HSBADR 


988 # 


2067 


7014 


7036 


7705 


7710 














msk 


994 # 


5800 


5971 


6553 


















MUL 


971 # 
























PERIOD 


1005 # 


7063 


7115 


7120 


















PTA. E 


1021 # 


7201 


8068 


8146 


8152 
















PTA.U 


1022 # 


7200 


8071 


8149 


8154 
















PUR 


981 n 


7010 


7028 


8129 


8208 
















SBR 


978 # 


7006 


7020 


• 8098 


8100 


8168 














SLEN 


993 ,# 


5783 


5807 


581 1 


5828 


5840 


5856 


5860 


5888 


5895 


5989 


5993 




5996 


6000 


6168 


6169 


6171 


6174 


6540 


6634 


6638 


6640 


6754 


6768 




6772 
























SV. ARX 


975 # 


5872 , 


5877 


7631 


7703 


7714 


7729 


7752 


8000 


8285 


8483 




SV. AR 


974 # 


5845 


5875 


7728 


7749 


7996 


8293 












SV . AR 1 


1024 # 


8174 


8214 




















SV.BRX 


977 # 


5069 


5873 


5878 


6745 


6760 


6769 


7997 


8287 








SV.BR 


976 # 


5871 


5876 


8007 


8017 


8019 


8021 


8023 


8286 


8441 






SV. VMA 


973 # 


7483 


7489' 


7491 


7718 


7747 


7750 


7986 


7999 


8245 


8458 


8467 


TIMEO 


1003 # 


2077 


7052 


7085 


7095 
















TIME 1 


1004 # 


2078 


7043 


7050 


7082' 


7096 


7099 


8212 


8452 








TRAPPC 


1023 # 


6780 


8471 




















TTG 


1006 # 


. 7057 


7061 


71 16 


















YSAVE 


1020 # 


3570 


7449 


74-52 


7457 


7469. 


7471 












TE 


1260 # 
























TE CYCLE* 


1076 # 


2476 


2482 


2496 


2596 


2598 


2631 


2637 


2645 


2647 


2666 


2668 




2692 


2698 


271 1 


2721 


2731 


2763 


2773 


2793 


2803 


2814 


2824 


2854 




3312 


3537 


3540 


3548 


3589 


3639 


3644 


3722 


3733 


3858 


3866 


3879 




3925 


3935 


3957 


3971 


4023 


4029 


4052 


4054 


4629 


4635 


4790 


5018 




5024 


5040 


5045 


5261 


5265 


531 1 


5333 


6358 


6404 


7102 


7106 


7167 




7267 


7415 


7426 


7432 


7624 


7636 


7639 


7722 


7725 


7732 


7735 


7738 




7741 


7744 


8131 


&206 


8218 


8235 


8264 


8269 


8429 


851 1 


8526 


8539 


TE TEST 


1075 # 


2476- 


2482 


2496 


2596 


2598 


2631 


2637 


2645 


2647 


2666 


2668 




2692 


2698 


271 1 


2721 


2731 


2763 


2773 


2793 


2803 


2814 


2824 


2854 




3312 


3537 


3540 


3548 


3589 


3639 


3644 


3722 


3733 


3858 


3866 


3879 




3925 


3935 


3957 


3971 


4023 


4029 


4052 


4054 


4629 


4635 


4790 


5018 




5024 


5040 


5045 


5261 


5265 


531 1 


5333 


6358 


6404 


7102 


7106 


7167 




7237 


7251 


7267 


7284 


7293 


7376 


7379 


7415 


7426 


7432 


7624 


7636 




7639 


7653 


7722 


7725 


7732 


7735 


7738 


7741 


7744 


8037 


8074 


8082 




8206 


8264 


8270 


851 1 


8526 


8536 


8539 












CYCLE 


'•'1112 # 


7238 
























923 n 


2056 


2058 


2060 


2062 


2065 


2095 


2109 


2145 


2149 


2152 


2164 




2167 


2170 


2327 


2329 


2342 


2364 


2365 


2652 


2654 


2659 


2661 


2678 




2949 


3020 


3022 


3436 


3445 


3448 


3450 


3451 


3452 


3485 


3490 


3493 




3499 


3513 


3514 


3534 


3547 


3633 


3662 


3725 


3740 


3826 


3828 


3830 




3832 


3834 


3836 


3838 


3840 


3847 


3850 


3883 


3888 


3890 


' 3893 


3895 




3922 


3930 


3937 


4004 


4005 


4257 


4294 


4295 


4305 


4313 


4358 


441 1 




4437 


4444 


4535 


4700 


4844 


4846 


4851 


4869 


4873 


4879 


4883 


4912 




4917 


4951 


4955 


4962 


501 1 


5107 


5108 


5111 


5112 


5136 


5137 


5141 




5169 


5170 


5206 


5210 


5230 


5231 


5368 


5370 


5450 


5470 


5471 


5490 




5493 


5521 


5523 


5695 


5697 


5699 


5701 


5703 


5705 


5707 


5709 


571 1 




5728 


5731 


5755 


5771 


5775 


5910 


5912 


5970 


5975 


5982 


5987 


5994 




5998 


6014 


6056 


6072 


6073 


6079 


6085 


6105 


61 18 


6120 


6127 


6132 




6139 


6142 


6198 


621*2 


6214 


6221 


6246 


6252 


6268 


6280 


6283 


6291 
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SEAN KEENAN, DON 


DOSSA 


Page 










Cross 


Reference 


L i st i ng 












6303 


6306 


6323 


6338 


6396 


6407 


64 16 


64 18 


6434 


6453 


6474 


6479 


6488 


6491 


6567 


6589 


6593 


6597 


6601 


6605 


6609 


6619 


6625 


6723 


6734 


6801 


6806 


6815 


6816 


6817 


. 682 1 


6822 


6823 


6824 


6829 


6830 


6831 


6834 


6835 


6836 


6837 


6838 


6839 


6840 


684 1 


6843 


6846 


6852 


6862 


6863 


6866 


6867 


6869 


6872 


6874 


6876 


6888 


6898 


6901 


6905 


6919 


6924 


6927 


6931 


6946 


6963 


6964 


6965 


6970 


6971 


6972 


6978 


6987 


6995 


7015 


7037 


7046 


7065 


7080 


7132 


7133 


7176 


7178 


7189 


7191 


7218 


7219 


7220 


7221 


7222 


7223 


7224 


7225 


7226 


7227 


7228 


7229 


7230 


7231 


7234 


7245 


7254 


7255 


7270 


7290 


7297 


7387 


7395 


7401 


7414 


7446 


7448 


7462 


7505 


7591 


7593 


7595 


7597 


7599 


7601 


7603 


7605 


7641 


7644 


7655 


7707 


7981 


7985 


7988 


8013 


8015 


8029 


8039 


8042 


8048 


8056 


8058 


8077 


8085 


8096 


8103 


81 19 


8126 


8166 


8177 


8180 


8188 


8194 


8200 


8203 


8220 


8224 


8227 


8241 


8252 


8256 


8260 


8262 


8275 


8276 


8278 


8283 


8303 


8315 


8321 


8326 


8332 


8371 


8381 


8385 


8395 


8400 


8414 


8417 


8420 


8423 


8432 


8437 


8445 


8507 



8516 





KS10. 


MC1[4,311] 




MICRO 


31 (254) 




KS1.0 


MICROCODE 


V123, 




















Location / L 




Dcode 


Loc ' n 





1 


2 


3 


4 


5 


6 


7 


D 


0000 




38 12 


5666 


5667 


5668 


5669 


5670 


5671 


5672 


D 


0010 




5674 


5675 


5676 


5677 


5679 


5680 


5681 


5682 


D 


0020 




5684 


5685 


5686 


5687 


5688 


5689 


5690 


569 1 


D 


0030 




3759 


3760 


376 1 


3762 


3763 


3764 


3765 


3766 


D 


0040 




3770 


3771 


3772 


3773 


3774 


3775 


3776 


3777 


D 


0050 




3778 


3779 


3780 


3781 


3782 


3783 


3784 


3785 


D 


0060 




3786 


3787 


3788 


3789 


3790 


3791 


3792 


3793 


D 


0070 




3794 


3795 


3796 


3797 


3798 


3799 


3800 


3801 


D 


0100 




3805 


3806 


3807 


3808 


3813 


3673 


3814 


3815 


D 


01 10 




5351 


5352 


5440 


5501 


3978 


3979 


4062 


4280 


D 


0120 




2673 


2674 


5236 


5723 


2682 


2683 


■ 5237 


5201 


D 


0130 




38 16 


3817 


5202 


4581 • 


4582 


4583 


4584 


4585 


D 


0140 




5077 


3818 


5078 


5079 


5080 


5081 


5082 


5083 


D 


0150 




5085 


3819 


5086 


5087 


5088 


5089 


5090 


509 1 


D 


0160 




5122 


3820 


5123 


5124 


5126 


5127 


5128 


5129 


D 


0170 




5151 


3821 


5152 


5153 


5155 


5156 


5157 


5 1 58 


D 


0200 




2454 


2455 


2456 


2457 


2459 


2460 


2461 


2462 


D 


0210 




2464 


2465 


2466 


2467 


2469 


2470 


2471 


2472 


D 


0220 




401 1 


4012 


4013 


4014 


4036 


4037 


4038 


4039 


D 


0230 




4203 


4204 


4205 


4206 


4208 


4209 


4210 


42 1 1 


D 


0240 




2859 


2860 


2861 


2862 


2863 


2864, 


2865 


3822 





0250 




249 1 


4990 


341 1 


3412 


3423 


3425 


3554 


7976 


D 


0260 




3576 


3577 


3578 


3579 


3706 


3707 


3708 


3709 


D 


0270 




3949 


3950 


3951 


3952 


3963 


3964 


3965 


3966 


D 


0300 




3257 


3258 


3259 


3260 


3261 


3262 


3263 


3264 


D 


0310 




3266 


3267 


3268- 


3269 


3270 


3271 


3272 


3273 


D 


0320 




3369 


3370 


3371 


3372 


3373 


3374 


3375 


3376 


D 


0330 




3283 


3284 


3285 


3286 


3287 


3288 


3289 


3290 


D 


0340 




3383 


3384 


3385 


3386 


3387 


3388 


3389 


3390 


D 


0350 




3300 


3301 


3302 


3303 


3304 


3305 


3306 


3307 


D 


0360 




3397 


3398 


3399 


3400 


3401 


3402 


3403 


3404 


D 


0370 




33 16 


3317 


3318 


3319 


3320 


3321 


3322 


3323 


D 


0400 




2704 


2705 


2706 


2707 


2714 


2715 


2716 


2717 


D 


0410 




2724 


2725 


2726 


2727 


2734 


2735 


2736 


2737 


D 


04 20 




2739 


2740 


2741 


2742 


2749 


2750 


275 1 


2752 


D 


0430 




2756 


2757 


2758 


2759 


2766 


2767 


2768 


2769 


D 


0440 




2776 


2777 


2778 


2779 


2786 


2787 


2788 


2789 


D 


0450 




2796 


2797 


2798 


2799 


2806 


2807 


2808 


2809 


D 


0460 




28 1 7 


2818 


2819 


2820 


2827 


2828 


2829 


28.30 


D 


0470 




2837 


2838 


2839 


2840 


2847 


2848 


2849 


2850 


D 


0500 




2507 


2508 


2509 


2510 


2512 


2513 


2514 


251$ 


D 


0510 




2517 


25.18 


2519 


2520 


2522 


2523 


2524 


252£ 


D 


0520 




2527 


2528 


2529 


2530 


2532 


2533 


2534 


2535 


D 


0530 




2537 


2538 


2539 


2540 


2542 


2543 


2544 


2545 


D 


0540 




2549 


2550 


2551 


2552 


2554 


2555 


2556 


2557 


D 


0550 




2559 


2560 


2561 


2562 


2564 


2565 


2566 


2567 


D 


0560 




2569 


2570 


2571 


2572 


2574 


2575 


2576 


2577 


D 


0570 




2579 


2580 


2581 


2582 


2584 


2585 


2586 


2587 
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Page 302 





KS10.MC1 [4,31 1 ] 




jwjt CD H 


Q 4 ( OK/1 1 




i/c in 

NO IU 


MICROCODE 


V123, 


















.Location / L 




Dcode Loc'n 





A 

1 


O 


O 


A 
«+ 




6 


7 


u 


0600 


3082 


ovjo o 


O\jo <+ 


OVJo D 


0VJ00 


0U0 / 


3088 


3089 


n 


06 10 


309 1 












3097 


3098 


p 


0620 


3100 


u IU I 


3 1 02 


3 1 03 


3 1 04 


3 1 05 


3106 


3107 


D 


0630 


3109 


31 10 


31 1 1 


31 12 


3113 


3114 


' 3115 


3116 


D 


0640 


3118 


3119 


3120 


3121 


3122 


3123 


3124 


3 1 25 


D 


0650 


3 1 27 


3 1 28 


3129 


3 1 30 


3131 


3 1 32 


3 1 33 


3 1 34 


n 


0660 


3 135 




0407 
O 1 \3 1 






^ 1 /in 


3141 


3142 


p 


0670 


3 1 44 


3145 


3 1 46 


3 1 47 


3 1 48 


3 1 49 


3 1 50 


3151 


p 


0700 


68 1 1 


DO 1 £. 


ICSCi 1 

/ KJKJ t 


/ Jv3*t 




/Oil 


7535 


7536 


D 


07 10 


7322 


7323 


7333 


7334 


7347 


7348 


7538 


7539 


n 
u 


0720 


7324 


700c 


7QQC 








7541 


7542 


P 


0730 


7544 


7545 


7546 


7547 


7548 


7549 


7550 


7551 


D 


0740 


7553 


7554 


7555 


7556 


7557 


7558 


7559 


7560 


D 


0750 


.7562 


7563 


7564 


7565 


7566 


7567 


7568 


7569 


D 


0760 


7571 


7572 


7573 


7574 


7575 


7576 


7577 


7578 


D 


0770 


7580 


7581 


7582 


7583 


7584 


• 7585 


7586 


7587 



1 MARCH, 1982 



SEAN KEENAN, DON D0SSA 
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Location / Line Number Index 
Ucode Loc'n 1 2 3 4 5 6 7 



u 


0000 


2056: 


7704: 


2057 


2065: 


7645: 


7647 : 


6349 = 


6350= 


u 


0010 


2089 = 


7705: 


2090= 


2058 


3192 = 


3195= . 


3198 = 


3201 = 


u 


0020 


3872 = 


4020= 


3877 = 


3880= 


7706 = 


4021 = 


7707 = 


3883 = 


u 


0030 


3466 = 


4048 = 


3470= 


4389 = 


3474 = 


4049 = 


3478 = 


4390= 


u 


0040 


2261 : 


2265: 


2269: 


2277: 


2287: 


2290: 


2297: 


2301 : 


u 


0050 


2314: 


2320: 


2341 : 


2059 


431 1 = 


4313 = 


4347 = 


4348 = 


u 


0060 


3538 = 


2060 


4941 = 


5260= 


3541 = 


3543 = 


4948 = 


7378 = 


u 


0070 


4651 = 


2063 


4655 = 


5261 = 


4659 = 


4315 = 


4662 = 


7379 = 


u 


0100 


2067 


2148 = 


2151 = 


2154 = 


7632 = 


2155 = 


2068 


2159 = 


u 


01 10 


2070 


2166 = 


2169 = 


2172 = 


7634 = 


2173 = 


7636 = 


2178 = 


u 


0120 


4075 = 


4077 = 


4168 = 


4172 = 


4078 = 


2073 


4176 = 


4180= 


u 


0130 


3736 = 


2075 


5506 = 


5508 = 


3739 = 


3743 = 


2077 


6857 : 


u 


0140 


2098 = 


2101 = 


4186 = 


4190= 


5185 = 


5186 = 


4194 = 


4198 = 


u 


0150 


3458 = 


2109 = 


3459 = 


5416 = 


5188 = 


5190= 


5192 = 


5193 = 


u 


016O 


4231 = 


4234 = 


2078 


5140= 


4237 = 


4238 = 


4240= 


5142 = 


u 


0170 


5740= 


4084 = 


5742 = 


5417 = 


5743 = 


4085 = 


5744 = 


5194 = 


u 


0200 


5599 = 


2199 = 


5601 = 


2205 = 


. 5603= 


221 1 = 


5605 = 


2216 = 


u 


0210 


5607 = 


2224 = 


2080 


2228 = 


2081 


2238 = 


5608 = 


2242 = 


u 


0220 


3616 = 


3618 = 


3620= 


2082 


2094 = 


2095 = 


2083 


7414 = 


u 


0230 


6708 = 


6660= 


6709 = 


6661 = 


6710= 


2084 


671 1 = 


7415 = 


u 


0240 


4590= 


4591 = 


2085 


5487 = 


2086 


4592 = 


6393 = 


6394 = 


u 


0250 


3233 = 


3236 = 


3239 = 


3242 = 


3245 = 


3248= ' 


3251 = 


3254 = 


u 


0260 


2138 = 


2139 = 


5340 = 


5488 = 


4619 = 


4622 = 


5341 = 


4623 = 


u 


027O 


3336 = 


3339 = 


3342 = 


3345 = 


3348 = 


3351 = 


3354 = 


3357 = 


u 


0300 


3493 = 


3497 = 


5345 = 


3499 = 


7146 = 


7147 = 


5346 = 


3500= 


u 


0310 


3914 = 


2087 


3916 = 


3919 = 


3868 = 


7149=' 


3870= 


3501 = 


u 


0320 


3513 = 


3514 = 


5649 = 


2091 


2092 


3515 = 


5651 = 


5325 = 


u 


0330 


4256 = 


4258 = 


6508 = 


4261 = 


2125 


3517 = 


6509 = 


5327 = 


u 


0340 


4687 = 


4690= 


4691 = 


2127 


4692 = 


4693 = 


2186 


4694 = 


u 


0350 


4629 = 


4630= 


4631 = 


4632 = 


4333 = 


4373 = 


4334 = 


4374 = 


u 


0360 


4783 = 


4784 = 


4785 = 


2248 


4786 = 


4787 = 


2253 


4788 = 


u 


0370 


4413 = 


2271 


2306 = 


2308 = 


4414 = 


4415 = 


4416 = 


4417 = 


u 


0400 


3935: 


2274 


2323 = 


2326 = 


2342 = 


2343 = 


2279 


5343 = 


u 


0410 


4094 = 


4096 = 


2364 = 


2365 = 


4097 = 


2291 


2293 


5344 = 


u 


0420 


5298 = 


5299 = 


5300= 


5301 = 


5302 = 


5303 = 


5304 = 


5305 = 


u 


0430 


5306 = 


2328 


2329 


5399 = 


2446 = 


2449 = 


5307 = 


5400= 


u 


0440 


5318 = 


6136 = 


5319 = 


6138 = 


5320= 


2332 


5321 = 


6139 = 


u 


0450 


5322 = 


2333 


2335 


5433 = 


2898 = 


2902 = 


5323 = 


5434 = 


u 


0460 


5993 = 


5995 = 


5653 = 


5657 = 


5997 = 


5999 = 


5660= 


2338 


u 


0470 


7269 = 


2499 


5423 = 


5425 = 


7271 = 


7273 = 


5426 = 


5427 = 


u 


0500 


5808 = 


5810= 


2928 = 


2929 = 


5812 = 


5814 = 


2629 


5816 = 


u 


0510 


6194 = 


2635 


2694 


5546 = 


2947 = 


2948 = 


6195 = 


5547 = 


u 


0520 


5560= 


5561 = 


5563 = 


5564 = 


5566 = 


5567 = 


5569 = 


5570= 


u 


0530 


5572 = 


2699 


2814 


6633 = 


2978 = 


2979 = 


5573 = 


6635 = 


u 


0540 


5889 = 


5891 = 


5893 = 


4104 = 


2982 = 


2983 = 


5896 = 


4106 = 


u 


0550 


4709 = 


4343 = 


4710= 


4344 = 


2995 = 


2996 = 


5751 = 


5752 = 


u 


0560 


6027 = 


6030= 


6186 = 


4127 = 


2880 


6031 = 


6187 = 


4129 = 


u 


0570 


4912 = 


4914 = 


2893 


4918 = 


5787 = 


5788 = 


5790= 


5793 = 



r \ 
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Location / Line Number Index 



* 


1 IrnHp I or* 1 n 


o 


i. 


2 


3 


4 


5 


6 


7 


1 1 

w 


\J\j\J\J 


DUO O — 


6036 = 




8112 = 


4605 = 






p 1 iq = 

01 1 j- 


u 


0610 


561 1 = 


2896 


5613 = 


5615 = 


3002 = 


3004 = 


5985 = 


5988 = 


u 


0620 


6044 = 


6045 = 


6049 = 


5456 = 


3008 = 


3010= 


6050= 


5460= 


1 1 




□ O C5 / ~" 


3o o 3 — 




Z)OH 1 — 


o \J 1 O — 


OA 17- 


O 1 z3 *L — 


C1QO- 


1 1 
u 


UD *+ \J 


O 1 / v5 — 


O I / D ~ 


QAQ -4 - 
x5\J<Z 1 — 






OAR 1 - 
ov/D t — 


9Q A A 


C < 7C- 

O 1 / O — 


y 


0650 


5855 = 


5857 = 


5859 = 


5860= 


6277 = 


6278 = 


6279 = 




1 1 


UOOU 




OZjZ 


/l P T 1 = 




zioon- 
'toou- 


C0Q7- 


400 -1 - 

*+oo 1 - 




U 




5 102 = 


ROA 1 = 


3 1 v/o 


6304 = 


5244 = 


6307 = 


5245 = 


COAQ = 


y 


0700 


6370= 


2915 


6374 = 


6376 = 


6377 = 


6380= 


29 1 7 


6382 = 


U 


0710 


6317 = 


6319 = 


6321 = 


6324 = 


6325 = 


6327 = 


6546 = 


6547 = 


U 


0720 


5246 = 


6584 = 


5247 = 


6586 = 


5534 = 


6590= 


5535 = 


6594 = 


y 




546 1 = 


6598 = 


5473 = 


6602 = 


5462 = 


6606 = 


5474 = 


66 1 0= 


y 


0740 


64 15 = 


64 17 = 


3054 = 


3056 = 


3296 = 


3297 = 


64 19 = 


2920 


y 


\j i ju 


5899 = 


5900= 


293 1 


5901 = 


6623 = 


6626 = 


6628 = 


6630= 


U 




6440= 


644 1 = 


3360= 


336 1 = 


3364 = 


3365 = 


6442 = 


9Q4Q 


y 


0770 


79 17 = 


79 i<3 = 
/ A i o~ 


79 1 Q = 


7220= 


7221 = 


/ «£. *L <£. — 


7223 = 


7994 = 


y 


I wuv 


8094 = 


8097 = 


8099= 


8101 = 


3485 = 


3486 = 


2950 


8 103 = 


U 


1010 


3490= 


3491 = 


5480= 


7359 = 


3534 = 


3535 = 


5485 = 


7361 = 


U 


1020 


5932 = 


5934 = 


5935 = 


2976 


3547 = 


3548 = 


2984 


7387 = 


y 


1030 


594 1 = 


5943 = 


5944 = 


2985 


3564 = 


3568 = 


2999 


7388 = 


y 


1040 


8 148 = 


8151 = 


8 1 53 = 


8 1 55 = 


3604 = 


3608 = 


301 9 


8 1 59 = 


y 


1 050 


6008 = 


6010= 


60 11 = 


3024 


5538 = 


7456 = 


5539 = 


7458 = 


y 


1 060 


8005 = 


8007 = 


5729 = 


801 1 = 


3048 


801 3 = 


573 1 = 


QA 1 R = 


u 


107O 


8017 = 


80 19 = 


802 1 = 


8023 = 


6542 = 


6543 = 


6544 = 


3206 


y 


1 1 w 


8482 = 


8484 = 


8486 = 


otoo — 


8490= 


8492 = 


8494 = 


8496 = 


U 


1110 


8498 = 


8499 = 


8500= 


8502 = 


7078 = 


7081 = 


3207 


7083 = 


U 


1 120 


7100= 


7102 = 


7103 = 


3312 


7484 = 


7487 = 


7490= 


7492 = 


y 


1 1 1 
1 1 ov 


8 1 64 = 


8 1 67 = 


8 1 69 = 


8 1 73 = 


8 1 92 = 


8195 = 


3313 


OOAA = 


1 1 


1 i AC\ 






O/ICC — 
OH JU — 


^AP> A 


oO^U 




oOu j- 


qccp - 
juOo- 


1 1 
u 




OOoD" 


ocq 4 - 

«3oy i — 






07AA- 


Q7o 1 - 


O - 


O O D O — 


U 


1 1 fin 


3859 = 


3860= 


3863 = 


3866 = 


389 1 = 


3893 = 


3896 = 




y 


1 170 


3989 = 


3990= 


3999 = 


400 1 = 


4004 = 


4005 = 


4022 = 


4023 = 


y 


1 200 


4028 = 


4029 = 


403 1 = 


4032 = 


4052 = 


4053 = 


4054 = 


4056 = 


U 


1210 


4109 = 


4110= 


4117 = 


4118 = 


4219 = 


4221 = 


4246 = 


4249 = 


U 


1220 


4267 = 


4271 = 


4273 = 


4275 = 


4289 = 


4291 = 


4293 = 


4294 = 


y 


1 230 


4303 = 


4304 = 


4319 = 


4320= 


4322 = 


4323 = 


4326 = 


4327 = 


y 


1 240 


4328 = 


4329 = 


4337 = 


4338 = 


4353 = 


4354 = 


4363 = 


4364 = 


y 


1 250 


438 1 = 


4382 = 


4432 = 


4433 = 


4434 = 


4435 = 


444 1 = 


4442 = 


y 


1 260 


445 1 = 


4452 = 


4455 = 


4456 = 


4480= 


4483 = 


4497 = 


4501 = 


y 


1 270 


45 1 3 = 


45 14 = 


45 18 = 


45 19 = 


4523 = 


4524 = 


4539 = 


454 1 = 


u 


A QAA 
i oUU 




*+ 0*+D — 




AP.AA — 
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7466 


7473 


7480 


1 1 


3660 




7495 


75 1 1 


7Ri ^ 


7515 


7517 


7519 


752 1 


7523 


y 


3670 




7525 


7527 


7529 


7620 


7627 


7638 


77 1 1 


7717 


y 


1700 

O / KJ\J 






7722 


7725 


7732 


7735 


7738 


"7 "7 A ^ 


in a a 
1 f 44 


U 


3740 






7750 


7751 


7753 


7983 


7985 


7QQC 


7QQ7 

/ y o / 


y 


3720 




7QQQ 


7997 


7998 


7999 


QOO 1 

OW 1 


8027 


8028 


8029 


y 


3730 




8033 


8036 


8037 


8048 


8050 


8058 


8088 


8090 


U 


3740 




5909* 


6266: 


5970: 


6103 : 


5769: 


8201 


8218 


8254 


U 


3750 




8257 


6267: 


8258 


8264 


5770: 


8266 


8271 


8273 


U 


3760 




8275 


8276 


8277 


8285 


8286 


8287 


8290 


8294 


U 


3770 




8315 


8317 


8319 


8347 


8361 


8369 


8398 


7996 : 
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No errors detected 

End of microcode assembly 

311 pages of listing 

Used 58.68 seconds, 117 pages of core 
Symbol table: 30P 
Text strings: 9P 
Loc'n assignment: 18P 
Cross reference: 52P 



